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I INTRODUCTION 


Porous  materials  are  used  as  a protection  against  x-radiatlon  because 
of  their  ability  to  minimize  the  sLi-esa  generated  by  the  radiation  and  to 
attenuate  that  stress  as  it  propagates.  For  acciirate  design  of  this 
protection,  wave  propagation  calculations  are  made  to  simulate  the 
radiation  deposition,  stress  generation,  propagation,  and  spallation 
caused  by  stress  waves.  For  such  a calculation  it  is  necessary  to  have 
a constitutive  relation  (stress-strain-energy  relation,  or  equation  of  state) 
that  describes  the  material's  response  to  heating  and  to  compressive  and 
tensile  loading. 

The  objective  of  this  report  is  to  document  a set  of  constitutive 
relations  that  provide  for; 

• Elastic  and  plastic  compaction  loading  with  rate  dependence 

• Heating  or  cooling  that  can  occur  simultaneously  with  loading 

• Unloading  and  rate-dependent  fracture 

• Melting  and  vaporization,  with  explicit  treatment  of  solid, 
liquid,  vapor,  and  mixed  phases. 

Accompanying  these  relations  is  a user's  manual  that  includes  a derivation 
of  the  equations  for  the  model  and  procedures  for  using  it  in  Lagranglan 
wave  propagation  computer  programs. 

For  calculations,  the  computational  model  must  be  fitted  to  data 
available  on  the  material  of  Interest.  A description  is  given  of  the 
methods  used  for  performing  this  fit,  especially  the  Judgmental  factors 
Involved . 

The  model  or  set  of  constitutive  relations  derived  here  are  developed 
from  the  same  physical  basis  as  that  derived  earlier  by  Seaman  and  Linde. ^ 

The  material  response  is  determined  both  by  the  solid  material  behavior 
and  by  th3  behavior  associated  with  its  porosity.  Onto  this  basic  frame- 
work of  the  Seaman  and  Linde  model  has  been  added  a family  of  compaction 
curves  suggested  by  other  investigators,  rate-dependent  compaction,  ductile 
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fracture  (rate-dependent),  a multiphase  equation  of  state  for  the  continuous 

material,  and  several  deviator  stress  models.  Specifically  the  following 

models  are  Included: 

Compaction  surface 

POREQST  (Seaman  and  Linde) ^ 

2 

Holt  et  al. 

3 4 

Carroll-Holt  ’ 

5 6 

Herrmann's  P-a  ' 

Rate-dependent  compaction 
2 

Holt  et  al. 
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Butcher  p-a-T 
Linear  viscous 
Fracture 

Constant  strength 

8 

NAG  ductile  fracture 

Solid  equation  of  state 

Mle-Grunelsen  and  PUFF  expansion 
10 

Philco-Ford 

ESA  extended  two-phase  equation  of  state 
Deviator  stress 

Beryllium  rate-dependent,  Bauchinger  model  of  Read^^ 

12 

Bauchinger  model 

13 

Standard  anelastlc  model 

The  constitutive  relations  for  porous  material  are  derived  in  Chapter  II 
and  Incorporated  into  subroutines  in  Appendices  A and  B.  Chapter  III 
describes  the  multiphase  equations  of  state  for  continuous  material;  the 
new  subroutines  are  given  in  Appendices  C and  D.  The  needed  background 
for  deciding  which  data  to  select  and  for  fitting  that  data  to  the  model 
is  given  in  Chapter  IV, 
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Background 


To  be  adequate,  the  porous  material  model  must  describe  behavior 
under  radiation  loading.  Therefore  we  examine  first  the  range  of  ’ 

behavior  expected. 

I 

Radiation  heating  of  porous  materials  can  cause  melting  and  vapori-  ^ 

I 

zatlon,  shock  wave  oropagation,  and  spallation.  Some  of  these  phenomena 

i 

are  Illustrated  In  Figure  1.  Radiation  from  the  left  falls  on  a plate  (a 
thin  slice  of  which  is  shown).  Following  deposition  the  front  surface 
material  Is  in  a compressed  but  expanding  vapor  state,  deeper  material  is 
molten,  and  at  greater  depths  the  particles  are  only  warmed.  The  "absorbed 
energy"  plot  shows  In  a conceptual  way  the  diminution  of  absorbed  radiant 
energy  with  depth.  Corresponding  to  this  energy,  stress  arises  throughout 
the  plate.  In  the  "vapor"  portion  the  material  is  heated  rapidly  during 
deposition,  expands  and  fills  the  pores.  Continued  heating  following  elimination 
of  the  pores  causes  high  thermal  stresses  to  occur,  which  may  reach  the 
megabar  region.  In  the  molten  region  the  thermal  expansion  is  smaller,  so 
following  deposition  the  stress  is  nearly  zero.  Small  thermal  stresses  are 
reached  by  the  end  of  deposition  in  the  region  that  consists  of  solid  particles. 

Wave  propagation  becomes  the  dominant  feature  as  the  stresses  In  the 
high-stress  areas  are  relieved.  The  vapor  expands  rapidly,  compressing  the 
molten  mist  and  transmitting  a compressive  wave,  which  propagates  to  the 
right  through  the  mist  and  into  the  region  of  solid  particles.  The  expansion 
of  the  left  (free)  boundary  of  the  vapor  causes  a rarefaction  wave  to  travel 
through  the  vapor  to  the  right,  following  the  compressive  wave.  As  the 
rarefaction  wave  traverses  the  liquid,  it  produces  tensile  stresses,  spalls 
the  liquid,  and  continues  into  the  solid  particles,  usually  causing  hot 
spall  to  some  depth.  This  rarefaction  continues  moving  to  the  right  at 
reduced  amplitude.  Meanwhile  the  compressive  wave  reaches  the  rear  surface 
of  the  plate  and  reflects  as  a rarefaction  wave,  which  propagates  to  the 
left.  At  some  point  near  the  rear  surface,  this  second  rarefaction  meets 
the  rarefaction  moving  to  the  right,  and  the  tension  produced  may  cause 

fracture  damage  in  the  plate  (cold  spall). 
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RADIATION  RESPONSE  OF  POROUS  MATERIAL 
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In  Figure  1 the  inserted  stress-volume  plots  show  the  behavior  at 
selected  points  in  the  target.  The  material  at  the  surface  Is  heated 
at  constant  volume  and  expands  Isentropically . The  material  somewhat 
below  the  surface  is  heated  and  then  compressed  further  by  a compressive 
wave  until  the  ensuing  rarefaction  unloads  it  isentropically.  At  greater 
depths,  the  initial  heating  is  small  and  the  compressive  wave  dominates. 

The  rarefactions  then  take  the  material  into  tension. 

To  examine  in  more  detail  the  processes  involved  in  these  heating 
and  loading  processes  we  divide  the  model  into  three  parts: 

(1)  A pressure-volume-energy  relation  for  solid  material 
under  thermodynamic  equilibrium  conditions,  called  the 
"equation-of-state  surface  for  solid"  in  Figure  2. 

(2)  A pressure-volume-energy  relation  for  porous  material 
under  equilibrium  conditions,  termed  Ihe  "yield  surface 
for  porous  materials"  in  Figure  2. 

(3)  Elastic-plastic  behavior,  viscous  behavior,  fracturing. 

Some  of  these  processes  are  ratendependent . 

All  three  aspects  of  the  constitutive  model  are  exercised  to  follow  the 

behavior  shown  in  Figure  1.  To  indicate  how  the  first  two  portions  of 

the  model  participate,  we  have  shown  the  paths  follov/ed  by  the  material 

at  several  depths  on  the  energy-pressure-volume  surface  of  Figure  3. 

Near  the  front  (irradiated)  surface  (Path  A),  a large  amount  of  energy 

is  deposited  at  nearly  constant  volume  causing  the  state  point  to  traverse 

the  yield  surface,  then  through  porous  liquid  and  dense  vapor  states. 

Finally  a compression  wave  drives  the  pressure  to  the  peak  volume.  The 

unloading  occurs  along  an  isentrope.  In  the  figure  the  isentrope  shows 

a rapid  unloading  characteristic  of  a solid  or  molten  material.  With  a 

more  intense  radiation,  the  state  point  trajectory  would  go  far  to  the 

right  before  reaching  low  pressures,  and  the  final  state  of  the  material 

would  be  a vapor.  At  a greater  depth  (Path  C)  there  is  slight  initial 

heating  at  constant  volume  as  the  state  point  travels  over  the  yield  surface, 

followed  by  a further  loading  from  the  compressive  wave  coming  back  from 

the  front  surface  (this  wave  is  caused  bv  the  high  stresses  at  the  front 

surface).  Unloading  then  follows  an  isentrope. 
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FIGURE  2 DEPICTION  OF  ENERGY-PRESSURE- VOLUME  SPACE  OF  THE 
CONSTITUTIVE  RELATIONS  FOR  A POROUS  MATERIAL 
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FIGURE  3 DEPICTION  IN  ENERGY-PRESSURE-VOLUME  SPACE  OF  THE 
CONSTITUTIVE  RELATIONS  FOR  A POROUS  MATERIAL  WITH 
REPRESENTATIVE  HEATING,  LOADING,  AND  UNLOADING  PATHS 
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Thus  the  response  of  material  at  all  depths  Is  described  by  the  constitutive 

relations.  The  slopes  of  the  constant-volume  loading  lines  In  the  P-E  plane 

are  given  by  the  GrUnelsen  function.  Attenuation  and  hysteresis  are  given 

by  the  stress-volume-energy  paths  projected  onto  the  P-V  plane.  The 

final  states  reached  Indicate  the  expected  phase  of  the  material. 

In  contrast  to  radiation  deposition,  impact  In  porous  materials 

Is  solely  a wave  propagation  process,  although  significant  heating  may 

occur  during  compression.  For  low  stresses  the  compaction  and  unloading 

paths  resemble  those  showa  In  Figure  4.  On  loading  the  behavior  is 

Initially  elastic.  At  higher  stresses,  gross  yielding  and  Irrecoverable 

compaction  occur.  At  stresses  of  several  times  the  Initial  yield,  the  voids 

are  eliminated  and  the  behavior  is  like  that  of  a solid.  Initial  unloading 

usually  follows  essentially  elastic  paths,  so  the  original  specific  volume 

is  not  recovered.  The  Hugonlot  for  the  porous  material  is  also  shown  in 

Figure  4.  The  Hugonlot  of  the  porous  material  is  to  the  right  of  the 

Hugonlot  for  solid  material,  illustrating  that  shock  waves  in  porous 

material  Induce  more  heating  than  the  same  shocks  in  solids.  This  heating 

effect  is  explored  quantitatively  in  Figure  5,  which  was  constructed  from 

14 

uranium  equatlon-of-state  data.  In  Figure  5,  the  low  stress  region 
has  been  completely  omitted;  the  calculations  were  made  on  the  assumption 
of  zero  yield  strength.  The  figure  shows  Hugonlots  for  several  initial 
porosities  (n  = 0.0  to  0.667)  and  for  impacts  up  to  600  kbar.  Several 
Isentropes  are  also  shown  (all  the  Hugonlots  and  isentropes  are  approximated 

to  lie  on  a single  surface) . For  uranium  the  melt  energy  is  about 

9 10 

2.3  X 10  erg/g  and  sublimation  is  at  2.0  x 10  erg/g.  Hence,  internal 

energies  equivalent  to  the  sublimation  energy  can  be  reached  by  impacting 

very  porous  samples.  Similar  results  can  be  expected  for  many  other  porous 

materials. 
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The  third  part  of  the  constitutive  model  for  porous  materials 
contains  all  the  nonhydrostatic  and  nonequilibrium  parts.  Here  are  the 
elastic-plastic  or  yield  phenomena,  the  rate-dependence  associated  with 
yielding,  the  rate-dependence  associated  with  pore  collapse,  and  time- 
dependent  ductile  and  brittle  fracture.  The  rate-dependence  associated 
with  phase  changes  would  also  be  Included  here. 

Current  State  of  Knowledge  of  the  Madel 

The  pressure-volume-energy  relation  for  solids  is  well-known  mainly 
from  Impacts.  Thus  the  known  states  lie  near  the  Hugoniot  curve  shown 
in  Figure  2.  Recent  progress  has  been  made  in  developing  three-phase 

(solid,  liquid,  and  gas)  equations  of  state  for  metals  through  the  work 

15  16  10  „ 17 

of  Royce,  Thompson,  , Goodwin  et  al.,  and  Naumann.  Since  all  of 

these  are  now  based  on  static  thermodynamic  data,  no  effort  is  made  to 

18 

handle  the  rate  effects  nnsociated  with  changing  phases.  Zel'dovich 
states  that  thf  equilibrium  surface(such  as  that  described  by  these  four 
equai;lons  of  state)  is  not  followed  in  a shock  or  rarefaction  wave 

10 

because  there  is  no  time  for  the  phase  change  to  occur.  Goodwin  et  al.  , 
make  it  plain  that  there  is  no  satisfactory  data  in  the  liquid  range, 
even  for  metals.  Thus  we  conclude  that: 

m The  solid  behavior  near  the  Hugoniot  is  well  known 
for  many  materials  and  can  be  derived  from  impact 
data.  The  common  equation-of-state  relations  adequately 
describe  this  solid  behavior. 

• The  liquid  states  are  essentially  unexplored  experimentally. 

• The  vapor  and  mixed  liquid-vapor  states  for  metals  have 
been  studied  experimentally  and  theoretically  under  static 
conditions.  The  results  give  some  guidance  toward  constructing 
dynamic  models,  but  cannot  be  relied  on  without  dynamic  experimental 
verification. 

The  second  portion  of  the  constitutive  model,  the  pressure  relation 
for  porous  material,  is  probably  better  understood  than  the  first  portion. 
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The  framework  described  in  our  model  several  years  ago  has  gradually  been 

verified  experimentally  and  theoretically.  With  the  recent  results  of 
19  „ 

Road,  we  now  know  that  the  Gruneisen  ratio  for  ductile  porous  material 
containing  voids  is  related  to  the  Grlinelsen  ratio  for  solid  material  in 
the  manner  given  in  our  porous  model.  Many  experiments  have  confirmed  that 
the  pressure-energy  relation  for  a porous  material  has  the  form  given  by 
our  model  (shown  as  the  line  V2-A-B-C-D  in  Figure  6).  However,  some 
experimental  evidence  suggests  that  a lower  Grlinelsen  ratio  should  be 
used  for  some  materials.  We  suspect  this  discrepancy  is  caused  by  pore 
shape  and  inclusions.  Some  experimental  work  has  been  done  to  determine 
the  v(;riation  of  yield  strength  and  modulus  as  a function  of  Internal 
energy.  Unfortunately  only  a few  materials  have  been  studied  so  general 
conclusions  cannot  yet  be  reached.  These  variations  are  important 
features  of  the  model . 

Considerable  effort  has  been  expended  in  understanding  the  third 
portion  of  the  constitutive  model:  nonhydrostatic  and  nonequilibrium 
phenomena.  We  are  now  aware  of  rate-dependent  yie]d  phenomena,  Bauschinger 
effects,  phase  changes,  rates  of  pore  collapse,  and  the  rate  phenomena 
associated  with  fracture.  Many  of  these  studies  have  led  to  an  under- 
standing of  these  phenomena  in  a large  class  of  materials,  although  specific 
data  are  available  for  very  few  materials.  Thus,  we  now  realize  that  we 
must  expect  those  effects  in  all  materials  and  have  analytical  models 
for  these  effects. 

20 

In  a recent  parameter  study  Buxton  confirmed  the  above  conclusions 
for  porous  beryllium.  He  found  that  each  portion  of  the  constitutive 
model  discussed  above  may  have  a dominant  effect  on  the  stress  and  impulse 
generation. 

Measurements  Required  to  Specify  the  Model  for  any  Material 

-With  so  much  information  required  to  determine  the  model  parameters 
for  each  material,  it  is  clear  that  a fairly  large  number  of  experiments 
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are  required.  Where  possible,  each  parameter  should  be  derived  from 
experimental  results  that  depend  uniquely  on  that  parameter.  From  plate 
Impact  experiments,  for  example,  the  impedance,  wave  velocity,  and  unloading 
moduli  cun  be  derived  directly.  But  In  electron  beam  experiments,  Grlinelsen's 
ratio,  modulus,  and  attenuation  all  have  some  Influence  so  that  none  Is 
determined  uniquely. 

The  behavior  of  the  solid  is  determined  by  impact  and  electron  beam  experi- 
ments on  the  solid  and  also  on  porous  material.  The  impacts  provide  loading 

and  unloading  data  on  and  near  the  Hugoniot  and  also  at  higher  energy  states 

* 

as  shown  in  Figures  3 and  5.  Because  the  Lagranglan  analysis  can  be  used 
to  reduce  the  data,  much  of  the  pressure-volume-energy  surface  near  solid 
density  can  be  explored  with  impacts.  The  impacts  determine  the  moduli 
and  give  some  indication  of  Grlinelsen's  ratio.  Electron  beam  experiments 
are  performed  to  define  states  of  larger  specific  volume  than  those  reached 
in  impacts  and  to  determine  the  GrUneisen's  ratio  throughout  the  range  of 
interest.  Because  of  the  more  complex  loading  path  (such  as  paths  A,  B, 
or  C in  Figure  3)  taken  in  the  electron  beam  experiments,  the  equatlon- 
of-state  surface  must  be  known  fairly  well  before  the  e-beam  data  can  be 
reduced.  With  a combination  of  impacts  and  e-beam  experiments  In  the  same 
region  of  the  surface,  we  feel  that  a valid  reduction  of  the  data  can  be 
made. 

Porous  material  is  studied  in  a manner  similar  to  that  used  for  solids. 
Impacts  at  several  peak  stress  levels  and  initial  internal  energies  are 
used  to  map  the  "yield  surface"  of  Figure  2 and  the  unloading  behavior. 

Then  e-beam  experiments  are  conducted  at  low  energies  so  that  little  of 
the  material  melts.  The  e-beam  data  are  reduced  with  the  aid  of  the 
constitutive  relations  based  on  the  impacts.  In  this  way,  the  e-beam 


* 

Lagranglan  analysis  is  a method  for  transforming  stress  or  particle 
velocity  records  from  impact  experiments  to  obtain  stress-volume-energy 
paths  followed  by  the  material  during  the  impact. 
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■easurenents  are  used  to  provide  an  effective  Grunelsen's  ratio  and  need 
not  explain  the  wave  propagation  phenomena.  These  experiments  In  the 
porous  material  lead  to  determinations  of  the  bauscl^lnger  effect,  the 
rate-dependence  of  yielding,,  the  pore  collapse  process,  fracturing,  and 
the  variation  of  yield  and  moduli  with  Internal  energy.  Because  of  the 
variety  of  effects,  special  experiments  must  be  conducted  with  different 
target  thicknesses,  different  Initial  temperatures,  and  different 
Instrumentation.  Some  targets  must  be  sectioned  to  examine  Internal  effects. 

The  foregoing  experiments  are  all  dynamic.  However,  some  auxiliary 
data  may  be  obtained  from  other  kinds  of  experiments,  a crush-up  curve 
and  unloading  moduli  may  also  be  obtained  statically,  although  these  may 
not  be  appropriate  for  dynamic  conditions.  It  is  necessary  to  verify 
static  data  by  comparison  with  wave  propagation  data  before  using  them 
in  dynamic  calculations. 
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II  CONSTITUTIVE  REIATIONS  FOR  POROUS  MATERIALS 


This  study  is  directed  toward  deriving  a thermodynamic  description 
of  the  stress  I energy i and  volume  states  reached  by  porous  material  during 
shock  wave  loading.  Such  a description  is  usually  termed  the  constitu- 
tive relations.  For  convenience  the  constitutive  relations  are  separated 
into  components  by  dividing  the  stress  into  pressure  and  deviatoric  stress. 


= P(E,  V) 

(1) 

= a'(E,  V)  = a - P 

CM 

where 

a is  the  stress  In  the  direction  of  wave  propagation 

P,  ff*  are  pressure  and  deviator  stress 

E,  V are  internal  energy  and  specific  volume. 

The  deviatoric  component  Is  associated  with  yielding  and  mechanical  rate 
effects;  it  is  important  only  while  the  material  is  solid.  The  pressure 
portion  provides  the  major  part  (f  the  stress  for  solid  behavior  and  all 
the  stress  for  liquid  and  vapor  states.  As  an  aid  in  visualizing  the 
P(E,  V)  function,  it  is  often  depicted  as  a surface,  as  shown  in  Figure  2. 
Solid  behavior  is  given  by  points  near  E = 0 on  the  left  in  the  figure; 
vaporized  states  are  on  the  right. 

If  the  material  is  initially  porous,  a combination  of  compressive 
loading  and  heating  will  cause  the  pressure  to  j ie  on  the  "yield  surface 
for  porous  material,"  shown  in  Figure  2.  Thus  the  thermodynamic  behavior 
of  the  porous  material  is  an  augmentation  of  the  behavior  of  the  solid. 

In  porous  materials  the  states  reached  in  shock  wave  experiments  depend 
on  the  loading  history  and  rate  of  loading  and  not  simply  on  the  thermo- 
dynamic state  variables. 
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This  chapter  describes  our  approach  to  constructing  a model;  our 
view  of  how  porous  material  actually  behaves.  We  outline  the  features 
included  in  the  present  computational  model  and  give  detailed  derivation 
of  the  constitutive  relations  Included  in  the  model. 

Approach 

The  energy-absorbing  and  stress-generating  mechanisms  in  porous 
materials  are  assumed  here  to  be  related  to  the  behavior  of  the  solid 
particles.  The  computational  model  is  constructed  by  combining  the 
behavior  of  the  solid  material  with  the  effects  associated  with  the 
structure  of  the  porous  material.  No  sfecial  treatment  is  required  to 
handle  stress-generation  under  rapid  heating.  At  low  stresses  the  porous 
material  responds  elastically  but  with  a lower  modulus  than  the  solid 
particles.  At  higher  stresses  the  structure  yields,  allowing  the  collapse 
of  some  pores.  This  structural  yield  is  associated  with  the  yield  strength 
of  the  solid  material  and  of  the  interparticle  bondstrengths. 

A family  of  assumed  Isoenergetic  loading  curves  are  shown  in  Figure  7 
together  with  Idealizations  of  this  path.  There  is  assumed  to  be  a var- 
iation of  yield  and  bulk  modulus  with  energy,  and  a gradual  transition 
from  elastic  to  fully  plastic  behavior.  These  curves  are  represented  in 
the  model  by  paths  with  a linear  elastic  loading  up  to  a sharp  yield. 

After  yielding,  all  paths  at  the  same  energy  coincide  in  the  model. 

Deviator  stresses  are  always  present  in  quasi-static,  one-dimensional 
strain  experiments  on  porous  materials  (that  is,  stresses  are  not  equal 
in  three  orthogonal  directions).  Such  measurements  usually  show  very  com- 
plex relations  between  deviator  stress  and  strain,  relations  indicative 
of  work-hardening,  rate-dependence,  and  Bauschlnger  effects. 

Fracture  in  porous  material  has  been  studied  very  little,  but  it  is 
assumed  that  fracture  occurs,  as  in  solids,  by  the  growth  of  cracks  or 
voids.  The  strength  of  porous  materials  is  smaller  than  the  corresponding 


25 


FIGURE  7 ASSUMED  FORM  OF  ACTUAL  ISOENERGETIC  LOADING  CURVES  COMPARED 
WITH  IDEALIZED  FORM  FOR  THE  MODEL 
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solids  because  theie  are  so  many  large  inherent  flaws.  Under  sustained 
tensile  loading,  the  porous  material  should  come  apart  and  produce  some 
fragments.  On  recompaction  the  fragments  will  not  necessarily  follow 
the  same  loading  path  they  did  on  initial  compression. 

Features  of  the  Mode'' 

The  model  developed  is  Intended  to  describe  the  thermodynamic 
behavior  of  porous  ceramics,  metals,  and  plastics.  It  should  also  be 
applicable  to  geologic  materials.  It  is  intended  to  readily  fit  data 
available  in  various  forms  so  that  little  recasting  of  data  is  required. 
The  flexibility  required  to  treat  many  kindr  of  material  with  data  in 
many  forms  is  obtained  by  providing  several  opt  Ions  for  each  of  the 
following  portions  of  the  model: 

• Solid  constitutive  relations 

• Yield  surface  for  porous  material 

• Rate  effects  in  the  porous  material 

• Deviator  stress. 

The  solid  behavior  is  treated  by  a combination  of  the  Mie-Grlineisen 

and  PUFF  expansion  equations  of  state,  the  ESA  extended  equation  of 

state,  or  the  Philco-Ford  three-phase  equation  of  state.  The  yield  sur- 

5,6 

face  for  the  porous  material  is  provided  by  versions  of  the  P-a  model, 

3,4  1 2 

the  Carroll-Holt  model,  the  POREQST  model,  and  the  Holt  model.  Rate- 

7 2 

dependent  effects  are  treated  by  Butcher's  or  Holt's  models  or  by  the 

8 

SRI  void  growth  model.  Deviator  stress  is  handled  by  the  usual  elastic, 

plastic,  or  work-hardening  models,  by  several  rate-dependent  models,  a 

12  11 
Bauschinger  model,  or  by  a special  model  for  S200  beryllium. 

The  logic  used  for  Joining  the  components  of  the  model  is  illustrated 
in  Figure  8.  Here,  possible  loading  and  unloading  paths  are  given  for  a 
porous  material.  Initially,  the  loading  is  elastic;  above  the  "initial 


27 


TENSION 


CONSOLIDATION  POINTS 


\ 


A DYNAMIC 

LOADING 

PATH 


ELASTIC 


\ 


RATE-INDEPENDENT 
COMPACTION  CURVE 


V 


INITIAL  YIELD 


ELASTIC 
UNLOADING 
AND  RELOADING 


28 


yield"  point,  the  loading  continues  elastically  only  for  very  rapid 
loading.  For  quasi-static  loading,  the  path  follows  the  line  on  the 
yield  surface.  For  wave  propagation,  the  path  will  depend  on  the  loading 
rate  and  will  lie  somewhere  between  the  elastic  and  the  static  curves 
(for  example,  the  "dynamic"  path).  If  unloading  occurs,  the  path  will 
be  on  an  "intermediate"  surface  and  the  behavior  will  be  elastic.  Con- 
tinued unloading  will  cause  tension  stresses.  In  tension  there  are  also 
three  paths:  elastic  for  instantaneous  loading,  static  fracture  threshold, 

and  between  these,  a dynamic  path.  During  the  compression  phase,  the  path 
may  reach  the  solid  curve,  that  is,  the  material  may  consolidate.  The 
foregoing  paths  concern  only  the  pressure;  the  deviator  stress  follows  a 
similar  set  of  paths. 

The  procedure  used  to  perform  the  calculations  and  the  switching 
between  options  is  Illustrated  in  Figure  8.  For  porous  material,  the 
calculations  are  first  made  on  the  assumption  that  the  response  is  elastic, 
that  is,  that  the  path  lies  on  the  "intemediate  surface"  defining  revers- 
ible loading  and  heating.  Thon  the  rate- Independent  compaction  (or  frac- 
ture) pressure  is  calculated.  If  the  elastic  pressure  exceeds  the  static, 
the  dynamic  pressure  is  computed.  In  this  way,  the  very  complex  model  is 
Isolated  into  small.  Independent  portions. 

A sample  of  some  capabilities  of  the  model  is  shown  in  the  computed 
loading  paths  in  Figures  9 and  10.  The  paths  were  constructed  by  computing 
pressure  with  the  subroutine  for  a sequence  of  increasing  densities,  fol- 
lowed by  a decreasing  sequence  and  another  increasing  sequence.  The  com- 
puted paths  show  rate- independent  and  rate-dependent  loading,  unloading, 
rate-independent  fracture,  complete  separation  (in  Figure  9)  and  recom- 
pression to  consolidation.  Other  possible  paths  would  show  various  com- 
binations of  heating  and  loading. 
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FIGURE  10  PRESSURE-VOLUME  PATH  COMPUTED  IN  PEST  FOR  LOADING  WITH  PORHOLT  MODEL.  ELASTIC  UNLOADING. 

CARROLL-HOLT  MODEL  IN  TENSION.  AND  RECOMPRESSION  WITH  PORHOLT  MODEL  TO  CONSOLIDATION 


Pressure  in  the  Porous  Material 


The  stress  In  the  solid  particles  of  the  porous  material  must  vary 
from  zero  at  free  surfaces  to  large  values  at  contact  points.  For  pres- 
sure calculations  we  consider,  however,  only  an  average  stress  over  all 
the  solid  matter.  If  a cross  section  is  cut  through  the  porous  material, 
some  of  the  cross  section  is  void.  The  average  stress  or  pressure  on  this 

section  is  a function  of  the  average  stress  in  the  solid  and  of  the  void 

21 

volume.  Carroll  and  Holt  have  shown  that 


P = OtP  (3) 

s 


where  P is  the  average  of  three  orthogonal  stresses  on  the 
porous  material 

P is  the  average  pressure  in  the  solid  particles 
s 

a = V/V  , the  distension*  ratio 
s 

V is  the  gross  specific  volume 

V is  the  average  specific  volume  of  the  solid  particles, 
s 


In  the  discussion  of  analytical  models  for  porous  materials,  some 
investigators  have  used  the  relative  void  volume,  v^,  and  others  have 
used  the  distension  ratio,  oj.  The  relative  void  volume  or  porosity  is 
defined  as 

V V - V 


V 

V 


(4) 


where  V , V , and  V are  the  specific  volumes  of  void  and  solid,  and  the 
v s ’ 

gross  specific  volume.  The  distension  ratio  is  defined  as 


V "^s 


(5) 


where  p and  p are  gross  density  and  average  density  of  the  solid  particles. 


Through  Eqs.  (4)  and  (5),  relations  can  be  found  between  v^  and  oi 
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1 


(6) 


V 

V 


1 

a 


and 


(7) 


The  pressure  in  the  solid  material  below  melting,  p , is  assumed  to 

s 

be  given  by  the  Mie-Grlinelsen  equation  of  state  with  the  Hugonlot  as  the 
reference  function. 


= P + ri3  (E  - E ) 

S H H 

2 3 

= + FP  (E  - E ) (8) 

H 

where  u = p /p  - 1 
s so 

P and  E are  pressure  and  internal  energy  at  the  density  p on 
H H 

the  Hugonlot 

r is  the  Grllnelsen  ratio 

C,  0,  S are  constants. 

Intermediate  Surfaces 

The  model  must  provide  for  elastically  loading,  unloading,  or  heating 
material  with  arbitrary  porosity.  For  this  purpose  we  define  an  "inter- 
mediate surface"  in  pressure-energy-volume  space.  This  warped  surface 
contains  the  locus  of  points  that  can  be  reached  from  a given  point  by 
an  elastic  (reversible)  loading  or  heating  process.  If  yielding  occurs, 
the  state  point  leaves  the  first  intermediate  surface  and  proceeds  to 
another.  This  behavior  is  analogous  to  the  usual  elastic-plastic  response 
in  which  unloading  after  yielding  determines  a new  elastic  path.  When 
energy  must  be  considered,  as  in  our  case,  a new  surface  Instead  of  a path 
is  determined.  Thus  there  are  an  infinite  number  of  nonintersecting 
intermediate  surfaces  that  can  be  defined  between  the  initial  porous  den- 
sity and  the  solid  density. 


33 


The  intermediate  surface  concept  is  Introduced  here  from  a physical 
point  of  view,  and  derived  mathematically,  and  then  the  thermodynamic 
requirements  for  it  are  discussed. 

One  Intemedlatc  surface  ABC  Is  shown  In  Figure  11  together  with  a 
compaction  surface  YBGFCH,  fracture  surface  DFHE,  and  consolidation  lines 
GF  and  OF.  To  explore  the  nature  of  the  Intermediate  surface,  consider 
a series  of  processes  that  must  be  represented  on  the  surface.  For 
example,  a zero-pressure  expansion  under  heating  must  define  a line  on 
the  surface.  Along  this  zero-pressure-expansion  line,  shown  as  JC  on 
Figure  11,  the  specific  volume  must  Increase  In  proportion  to  the  change 
In  energy.  An  elastic  loading  or  unloading  process  defines  a line  such 
as  RL  on  the  Intermediate  sui'face  In  Figure  11.  The  slope  of  this  line 
in  the  pressure-volume  plane  Is  a bulk  modulus.  If  radiant  energy  Is 
deposited  rapidly  in  the  material  such  that  no  volume  change  can  occur, 
pressure  rises  Immediately  because  of  the  restraint  of  the  surrounding 
material.  Such  a line  Is  RP.  If  the  energy  Increase  Is  small  enough  so 
that  only  elastic  response  occurs,  the  response  can  be  decomposed  Into 
thermal  expansion  at  zero  stress  (RQ)  and  a recompression  at  constant 
energy  to  the  Initial  density  (QP).  Both  expansion  and  recompression 
paths  must  lie  on  the  Intermediate  surface  and  so  must  the  resultant  path, 
which  occurs  at  constant  volume.  Together  these  three  paths  must  define 
the  nature  of  the  Intermediate  surface.  Slopes  such  as  the  adiabatic 
loading  path  RL  in  Figure  11  are  represented  by  an  effective  bulk  modulus, 
while  constant-volume  slopes  such  as  RP  provide  the  effective  Grllnelsen 
ratio.  Since  the  bulk  moduli  of  the  material  vary  with  Internal  energy, 
the  surface  Is  not  plane,  but  warped.  In  the  following  paragraphs  the 
bulk  moduli  for  loading  processes  and  the  thermal  expansion  behavior  are 
derived.  Then  these  two  processes  are  combined  to  form  an  expression  for 
pressure  associated  with  any  loading  or  heating  process  on  an  Intermediate 
surface. 
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FIGURE  11  CONSTITUTIVE  RELATIONS  OF  A POROUS  MATERIAL,  EMPHASIZING  THE 
INTERMEDIATE  SURFACE  FOR  REVERSIBLE  LOADING  AND  HEATING 


An  Isoenergetic  bulk  modulus  is  derived  for  use  in  our  calculations. 
Along  an  isoenergetic  path,  the  pressure  is 


P = K(—  - 1)  (9) 

Po 

where  K is  the  isoenergetic  modulus 

p is  the  density  at  zero  pressure  on  this  path, 
o 

It  is  assumed  that  K is  a function  only  of  density  and  energy  and 
that  these  functional  dependencies  are  separable. 

K = Kp)f(E)  (10) 

The  functions  of  k(p)  and  f(E)  are  derived  separately.  The  energy  depen- 
dence f(E)  of  the  effective  modulus  is  described  by  two  parabolas  for  the 
model.  The  form  of  f(E)  is  shown  in  Figure  12.  The  parabolas  usually 
provide  enough  flexibility  to  fit  the  meager  data  available. 

The  form  of  k(p),  the  porosity  dependence  of  bulk  modulus,  is  derived 
to  meet  three  criteria: 

• The  modulus  variation  should  be  like  that  obtained  from  the 
elastic  analysis  of  porous  material. 

• The  value  of  the  modulus  at  the  initial  density  must  fit  data 
on  the  material,  and  the  modulus  at  consolidation  should 
approximate  the  isoenergetic  modulus  of  the  solid. 

• The  bulk  sound  speed  should  never  exceed  the  bulk  sound  speed 

of  the  solid.  Thus,  because  k/p  is  an  approximation  to  the 

square  of  the  bulk  sound  speed,  K/p  should  always  b-'  less  than 

K /p  . 
s so 

The  theoretical  variation  of  modulus  with  porosity  is  obtained  from  the 

22  23 

works  of  MacKenzle  and  Warren  on  material  with  noninteracting  spher- 
ical pores.  For  linear  elastic  loading  with  small  deformations,  they 
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FIGURE  12  THERMAL  STRENGTH  REDUCTION  FUNCTION 
FOR  EFFECTIVE  MODULI 


derived  the  following  relations  for  the  effective  Isothermal  bulk  moduli 
from  small-deflection  theory. 


“i  " 3T  '“i  - *> 

I 


where  and  are  the  isothermal  bulk  and  shear  moduli  of  the  solid 

is  the  distension  ratio  on  the  ith  intermediate  surface. 

Equation  (11)  may  greatly  overestimate  the  effective  stiffness  if  the  pores 
are  nonspherical  or  there  is  intergranular  sliding.  Therefore  the  theoret- 
ical form  is  modified  to  permit  the  specification  of  an  initial  bulk  modu- 
lus K . Then  the  dependence  of  bulk  modulus  on  distension  ratio  is 
o 


k(p)  = 


“l  *\K  "“o/o  - 1 
\ o r O 


where  a = P /P  is  the  initial  distension  ratio  of  the  unheated  material 
o so  o 

is  the  adiabatic  bulk  modulus  of  the  solid  at  initial  density 
K /K  - a 

T s o o ^ ^ 

L = , a constant. 

a - 1 

o 

Here  we  have  used  the  adiabatic  modulus  K instead  of  the  isoenergetic 

s 

modulus  because  it  corresponds  to  the  C in  the  Hugonlot  relation  in  Eq.  (8) 
for  the  solid. 

To  keep  the  bulk  sound  speed  from  exceeding  that  of  the  solid,  we  also 
require  that 


K ^ K /a 

o so 


Thus  the  behavior  of  k(p)  as  determined  by  Eqs.  (12)  and  (13)  is  similar  to 
that  determined  by  Eq.  (11),  but  now  k(p)  also  depends  on  the  ratio  of  the 


1 


initial  modulus  of  the  porous  material  to  the  modulus  of  the  solid  mate- 
rial. 


During  elastic  loading  there  will  be  a small  change  in  distension, 
a change  not  noticed  in  MacKenzie's  small-deflection  analysis.  If  the 
current  distension  were  used  in  Eq.  (12),  a nonlinear  loading  would  occur. 
This  nonlinearity  is  eliminated  by  defining  as  the  distension  at  sero 
pressure  and  energy  on  the  1th  Intermediate  surface,  that  is 


a = p /p 

i so  o 


(14) 


where  p is  the  solid  density  and  p is  the  porous  density,  both 
so  o 

defined  at  zero  pressure  and  energy. 


0^  is  equal  to  ol  on  the  intermediate  surface  passing  through 
i o 

the  initial  state  of  the  porous  material. 


The  Isoenergetlc  shear  modulus  also  is  reduced  for  porosity  and 
internal  energy.  As  for  the  bulk  modulus,  the  effective  shear  modulus  is 
presumed  to  be  a product  of  functions  of  p and  E. 


G = g(p)f(E) 


(15) 


The  same  thermal  strength  reduction  function  is  used  as  for  the  bulk 
modulus.  According  to  MacKenzie's  analysis,  the  Isotheimal  shear  modulus 
varies  linearly  with  density 


G 


PI 


3Kj  + 4G. 

dF 




C + 8G.J 


(16) 


As  with  the  bulk  modulus,  we  may  wish  to  define  an  initial  shear  modulus, 
G^.  This  is  achieved  by  writing  an  expression  for  g(p)  that  is  linear 
in  density  as  is  G but  permits  an  arbitrary  specification  of  G . Then 


G 1 - l/«  , 

g(p)  = 0^1  m75-J 

s o 

where  G has  been  replaced  by  the  adiabatic  modulus  G . 
I s 


(17) 
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The  intermediate  surface  also  represents  state  points  reachable  by 
heating  or  cooling.  When  a solid  is  heated  at  zero  pressure,  the  mate- 
rial expands  uniformly  in  all  directions.  The  specific  volume  increases 
by  an  amount  proportional  to  the  initial  specific  volume,  the  theraal 
expansion  coefficient,  and  the  temperature  change.  A porous  material 
expands  under  heating  in  much  the  same  way;  even  the  voids  retain  their 
shape  and  simply  enlarge.  For  a porous  material  at  an  arbitrary  point  at 
zero  pressure,  such  as  point  J in  Figure  11,  the  expansion  path  is  along 
the  curve  JC  defined  by 

P = O 

V = V (1  + « AQ)  (18) 

J X 

where  is  the  volumetric  thermal  expansion  coefficient,  a constant 

A0  is  the  change  in  temperature 

V is  the  specific  volume  at  point  J. 

J 

This  expression  is  valid  for  V,  = V , the  initial  specific  volume,  and 

J o 

also  for  V,  = V , the  initial  solid  volume, 

J so 

The  temperature  is  eliminated  from  Eq,  (18)  by  introducing  a constant 

specific  heat,  C , and  the  Grllnelsen  ratio,  I = K a /(p  C ),  Then  the 
p s t so  p 

volumetric  expansion  along  the  zero  pressure  line  JC  in  the  intermediate 
surface  of  Figure  11  is 


1 

I 


(19) 


where  p is  the  reference  density  at  J on  the  ith  intermediate  surface 
o 

is  the  density  at  point  U on  the  line  JC, 

Tp  is  a thermal  expansion  factor. 

When  the  equation  for  the  zero  pressure  line  is  solved  from  the  Mie- 
Grlinelsen  Eq , (8),  the  following  expansion  is  obtained; 
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(20) 


1 

P 


+ 


rp  E 

so 

“c 


Thus,  to  a first  approximation  in  fp  E/C  (and  with  K = C),  the  zero 

so  s 

pressure  line  follows  the  same  expression  in  the  solid  and  porous  mate- 
rials. 


The  pressure  at  an  arbitrary  point  P on  the  intermediate  surface  in 
Figure  11  is  obtained  by  expanding  from  J to  U using  Eq.  (19)  and  then 
loading  on  an  Isoenergetlc  path  to  P using  Eq.  (9).  The  isoenergetic 
loading  follows  the  relation: 


P = 


(21) 


By  inserting  Eq.  (19)  into  Eq.  (21),  we  obtain  the  complete  expres- 
sion for  pressure: 


P = k^f(E> 


(22) 


Eq.  (22)  provides  a unique  expression  for  P(p,E),  Independent  of  loading 
path  or  direction. 


The  foregoing  intermediate  surface  expressions  provide  a unique 
relationship  between  energy,  pressure  and  volume.  This  uniqueness  (path- 
independence)  is  one  requirement  of  equilibrium  thermodynamics.  The 
expressions  above  Impose  no  requirements  on  temperature  and  entropy  and 
hence  they  may  not  meet  all  the  thermodynamic  requirements:  this  question 
is  examined  below. 

For  thermodynamic  completeness,  an  equation  of  state  must  provide  a 
unique  relationship  between  energy,  volume,  and  entropy 

E = E(V,S)  (23) 
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Then,  with  the  aid  of  the  enerfv  balance  relation 


(24) 


the  other  basic  thermodynamic  quantities  can  be  determined,  that  is 


(25) 


(26) 


Thus  the  uniqueness  requirement  is  that  all  five  quantities  - E,  P,  S,  T, 
V - be  uniquely  given  at  each  point  on  the  equation-of-state  surface. 

While  the  present  resuits  uniquely  define  E,  P,  and  V,  the 
temperature  and  entropy  are  path-dependent.  This  path-dependence  can  be 
illustrated  with  the  aid  of  the  following  equations  for  temperature  and 
entropy 


dT  = — (dE  + PdV  + T»  dP) 
C t 

P 


(27) 


and  TdS  = dE  + PdV  (28) 

For  example,  examine  alternate  paths  such  as  heating  and  then  loading 

(path  RQP  in  Figure  11),  or  loading  followed  by  heating  (RLP  in  Figure  11). 

Different  temperatures  and  entropies  are  obtained  at  the  final  point  (point  P) . 

We  expect  to  examine  this  problem  of  thermodynamic  consistency  further 

and  to  propose  a solution  if  the  discrepancies  are  significant. 

In  preparation  for  each  elastic  calculation  with  Eq.  (22),  it  is 

accessary  to  locate  the  appropriate  intermediate  surface.  Since  surface 

is  related  to  a particular  value  of  0^,  it  is  necessary  to  solve  Eq.  (22) 
i ° 

only  for  o i using  the  values  of  P,  E,  o from  the  previous  state  point 
o 
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calculation.  The  Inversion  of  Eq.  (22)  with  Eq.  (12)  substituted  for 

leads  to  a linear  result  for  p^. 

o 

^ K f(E)Pr  - Pp  (1  + L) 

^ s f so 

p = (29) 

o K f(E)  - PL 

s 

Rate- Independent  Yield  or  Compaction  Surface 

When  loading  or  heating  occurs  in  a porous  material,  the  initial 
response  is  elastic.  But  eventually  the  stress  reaches  a level  that 
causes  a general  yielding  of  the  assemblage  and  a consequent  collapse 
of  the  voids.  This  yielding  may  occur  for  many  combinations  of  density 
and  internal  energy  so  that  the  yield  points  form  a surface  in  P-V-E  space. 
If  loading  or  heating  continues,  it  is  assumed  that  the  state  point  moves 
across  this  surface.  Thus,  we  assume  that  the  yield  surface  is  unique  and 
can  be  reached  by  arbitrary  combinations  of  heating  and  loading  (cooling 
and  unloading  cannot  be  included).  This  uniqueness  has  been  verified  for 
static  loadings  but  has  never  been  tested  by  heating. 

The  compaction  surface  is  an  upper  bound  on  the  static  pressure 
obtainable  at  a given  density  and  internal  energy.  It  also  serves  as  a 
threshold  level  for  rapid  collapse  of  voids  under  dynamic  loading.  As 
shown  in  Figure  11,  the  compaction  surface  Joins  the  solid  equatlon-of- 
state  surface  along  a consolidation  line  (FG)  and  ends  at  a zero  pressure 
line  at  the  melt  energy  for  the  material  (FCH).  The  compaction  surface 
also  passes  through  zero  along  a line  corresponding  to  the  free  expansion 
of  the  material  from  its  original  density  (line  IH) . The  joint  between 
the  :ompaction  surface  and  any  intermediate  surface  is  represented  by  BC 
in  Figure  11. 

A rate-independent  compaction  surface  occurs  in  all  the  porous  models 
considered.  In  some  cases  one  model  may  fit  the  material  behavior  better 
than  another.  Usually  several  models  are  equally  appropriate,  but  the 
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data  may  have  already  been  fitted  to  one  of  the  models;  in  that  case,  the 
model  that  matches  the  data  should  be  used  if  it  is  available. 

The  compaction  surfaces  are  defined  by  functions  of  the  form 

P (o,E)  or  P (a,E). 
com  com 

To  simplify  the  form  of  the  surface,  we  assume  that  it  is  formed  by 

two  independent  processes:  (1)  isocncrgetic  compaction  and  thermal 

expansion  and  (2)  thermal  strength  reduction.  The  P (p.E)  becomes  a 

com 

product  of  two  functions,  each  representing  one  of  the  processes; 

P = P (p  ^)f(E)  (30) 

com  com  ref 

where  p (p  ) Is  the  crush  curve  defined  in  the  E = O plane.  The 
com  ref 

variable  p is  computed  from  the  current  values  of  p and  E with  the 
ref 

aid  of  Eq.  (19),  thus  accounting  for  the  thermal  expansion  effect. 

The  same  function  of  energy  f(E)  is  used  here  as  in  the  modulus 
function,  but  this  equivalence  is  not  a requirement. 

In  the  following  subsections,  several  forms  for  p(p  ),  the  compac- 

ref 

tlon  curve,  are  given  that  are  in  common  use  and  appear  to  represent  the 
experimental  data,  at  least  for  some  materials. 

Compaction  Curve  of  Holt's  Model 

The  static  compaction  curve  at  E = O is  defined  by  providing  an 

analytic  relation  between  any  two  of  the  following  three  variables:  the 

distension  ration  ol,  specific  volume,  and  pressure.  Various  functional 

5,6  7 2 

forms  have  been  given  by  Herrmann,  Butcher,  and  Holt.  Holt's  formu- 
lation has  the  advantage  that  <y  is  given  as  a function  of  specific  volume, 
a known  quantity;  therefore  no  iteration  is  required.  (Herrmann's  and 
Butcher's  a's  are  functions  of  pressure.)  However,  in  using  a function 
of  volume,  care  must  be  taken  to  assume  a reasonable  form.  The  following 
restrictions  are  suggested. 
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• Oi  must  go  to  1.0  at  consolidation,  p = p^. 

• a should  be  initially  equal  to  p /p  , the  ratio  of 

so  o 

solid  density  to  initial  density. 

• The  pressure  should  increase  monotonically  with  density. 

• The  initial  slope  of  the  P-V  curve  past  the  Initial 
yield  value  should  be  modeled. 

• The  consolidation  should  occur  with  the  porous  P-V 
curve  tangent  to  the  solid  curve  (no  discontinuity  in 
sound  speed) . 

First,  the  expression  of  Holt  was  examined,  but  it  did  not  meet  the  third 
requirement — monotonically  increasing  pressure.  After  several  attempts, 
it  was  decided  to  use  a second-order  expansion  in  density  and  to  meet 
only  th?  first  four  requirements.  The  expansion  is  written 

2 

" P^>  + b(p'  - p ) (31) 

SG  G G 

= Pg  (32) 

where  p is  the  density  at  Initial  yield 
e 

p is  the  density  of  the  solid  particles  at  initial  yield 
se 

p^  is  the  density  for  a state  of  zero  internal  energy. 

The  constant  a is  derived  from  the  slope  of  the  static  compaction  curve 

at  the  left  of  the  point  p^  _ p . 

e 


Here  Eqs.  (3)  and  (5)  have  been  used  to  replace  a and  P,  and  the  pres- 
sure in  the  solid  has  been  written  as  a function  of  density: 
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(34) 


P = 
s 


where  K is  the  bulk  modulus.  When  p is  replaced  by  its  value  from 
s s 

Eq.  (32),  the  differentiation  is  performed,  and  is  set  >'•.0  p^,  the 
following  is  obtained 


since 


(35) 


(36) 


and 


(37) 


where  P is  the  pressure  in  the  porous  material  at  p = p 
e e 

p is  the  solid  density  at  the  same  point, 
se 

Then  the  parameter  a can  be  determined  for  prescribed  values  of  the  slope 
at  yield. 


(38) 


the  constant  b in  Eq.  31  is  determined  by  requiring  that  p = = p 

s c 


at  consolidation. 
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(39) 


The  function  thus  defined  for  the  static  distension  ratio  has  no  extremum 

between  p and  p unless  (d  P/d  p ) Is  negative  (downward  Initial  slope 
o c e 

of  the  P-V  curve)  or  the  Initial  slope  greatly  exceeds  that  required  for 
a linear  P-p^  curve.  The  value  of  an  "a"  for  an  approximately  linear 
P-p^  curve  Is 

a 

a = — (p  - p ) (40) 

p - p c se 
c e 

This  value  of  a Is  the  largest  value  that  would  be  used  normally  to  fit 
data. 


The  densities  p and  p are  computed  from  the  elastic  relation  on 
e se 

the  Intermediate  surface,  Eq.  (9),  and  the  corresponding  relation  for  the 
solid: 


P = 
e 


(41) 


P 

se 


(42) 


where  P and  P are  pressures  at  the  elastic  limit,  and  K Is  the  stlff- 
e se  o 

ness  on  the  intermediate  surface  through  the  point  p = p . Eq.  (41)  can 

o 

Immediately  be  solved  for  p 

e 


Pe  - P 


ik-') 


From  Eq.  (3)  the  densities  can  be  related  to  a 


P = a p 

so  e 9 


(43) 


(44) 
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Now  Eqs.  (42)  and  (43)  can  be  solved  simultaneously  fur  p 

se 


P 


se 


1 


P 

P 

K 


so 


e so 


(45) 


Compaction  Curve  of  POREQST 

The  rate-independent  compaction  curve  of  Seaman  and  Linde^  was 
constructed  to  be  convenient  for  fitting  experimental  data.  The  compac- 
tion curve  is  divided  into  a series  of  parabolic  segments  as  shown  in 
Figure  13.  The  segments  are  specified  by  a series  of  densities: 

Pol  •••  P=i  where  p,  = p and  p is  at  the  point  of  consolidation.  Up 
to  four  segments  are  permitted.  Within  each  segment,  the  curve  is  defined 
by  the  pressures  at  each  end  of  the  segment  (P  and  P for  the  third  seg- 
raent  of  Figure  13) and  by  the  variation  hP,  As  shown  in  Figure  13,  AP  is 
measured  midway  between  the  specific  volumes  at  each  end  of  the  segment 
and  is  the  vertical  distance  from  the  straight  line  to  the  parabola.  With 
this  definition,  the  value  of  AP  Is  negative  in  the  third  segment  shown. 
These  quantities — densities  and  pressures — are  readily  determined  from  a 
measured  or  estimated  P-V  curve:  these  are  the  input  data  for  the  model. 


For  the  wave  propagation  calculations,  the  input  data  that  define  the 
measured  compaction  curve  are  transformed  to  coefficients  of  a quadratic 
series  in  specific  volume.  In  terms  of  the  input  variables  the  parabolic 
form  is 


P = P^  + 


(P. 


4AP 


(V-V  )(V-V^  ) 

i i+1 


(V  -V  ) 
i+1  i 


(46) 


where  V and  ^ are  specific  volumes  at  either  end  of  the  ith  segment 

^ 2 
and  correspond  to  p^  and  ®y  gathering  terms  in  V and  V , we  can 

rewrite  Eq.  (46)  as 
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FIGURE  13  COMPACTION  CURVE  OF  POREQST  MODEL  DIVIDED  INTO  THREE 
PARABOLIC  SEGMENTS 


19 


P=P  +PV  + PV 
al  bi  ci 


(47) 


where  P . = P,  + - 
ai  Ip 


1+1 


i+1  - Pi 


l-liP  p, 


P - P _ 


Pl+1  - Pi 


p 

bi  P, - P. 


i+1 


p . p . ,.p  ^ 

2 1 P.  - P. 


i+1 


^ci 


4AP  ,p^ 
^1+1  ^i 


The  quantities  P , P , and  P are  computed  in  the  code  and  stored  for 
ai  bl  ci 

use  during  the  wave  propagation  computations. 


With  only  three  points  to  define  each  segment,  the  slopes  of 
the  data  may  be  poorly  represented.  The  slopes  of  the  parabolic  segments 
can  be  determined  from  Eq.  (47). 


dP 


dV 


VaV 


(48) 


dV 


1V=V 


i+1 


P - P - 4AP 
2 1 


V 

i+1 


V 

i 


where  V = (V  + V )/2 
i+1  i 

These  equations  should  be  used  to  verify  that  slopes  of  the  data  are  being 
fairly  modeled  by  the  parabolas.  If  necessary  the  slope  representation 
can  be  improved  by  using  more  segments  or  by  repositioning  the  segment 
boundaries . 
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The  point  of  consolidation  may  be  more  readily  specified  as  a 

pressure  P than  a density.  Therefore,  the  consolidation  density  may  be 
c 

given  as  zero  in  the  input.  Then  the  P value  for  the  last  segment  is 

A 

Interpreted  as  P and  used  with  the  equation  of  state  of  the  solid  to 
c 

determine  the  consolidation  density.  The  solid  equation  of  state  is 
usually  given  in  the  Mie-Grlineisen  form 


P = (C|i  + + S^^Hl  - ^)+  pFE  (49) 

A 

where  C,  D,  S are  coefficients  of  the  Hugoniot 

r is  Grlinelsen's  ratio 

E is  Internal  energy 

a = p/p  - 1. 
so 

Eq.  (49)  is  solved  for  p = p_i  the  consolidation  density,  with  P = P 

5 c 

and  E = 0.  The  solution  for  p is  described  in  Appendix  B. 

5 

Compaction  Curve  of  Carroll-Holt  Model 

3 

The  Carroll-Holt  model  is  based  on  an  analysis  of  the  spher- 
ically symmetric  compaction  of  a single  spherical  void  in  rigid-plastic 
material.  The  analysis  led  to  the  following  relation  between  pressure 
and  distension  ratio: 


1 

1 . 


(50) 


Carroll  and  Holt  suggested  that  this  result  could  be  extended  to  elastic- 
plastic  material  behavior  through  the  use  of  Eqs.  (3)  and  (5)  and  the 
stress-strain  relation  for  a solid.  Then 


(51) 


where  ci'  = P /p- 
so 
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By  eliminating  a between  Eqs.  (50)  and  (51)  Carroll  and  Holt  derived  an 

expression  relating  P to  p for  elastic-plastic  behavior. 

Here  Eqs.  (50)  and  (51)  are  used  to  find  an  expression  relating  a to 

the  density  (represented  by  o'  = p /p).  The  result  is 

so 


in  a - (52) 

a a a 

, 2Y 
where  0 = — 

3K 

s 

The  absolute  value  sign  in  Eq.  (50)  Is  accounted  for  by  letting  6 be  positive 

for  compression  and  negative  In  tension.  With  Eq.  (52)  complete  consolidation 

cannot  occur  although  o approaches  arbitrarily  close  to  1.0.  To  permit 

consolidation,  we  Introduce  a small  parameter  ( Into  Eq.  (52)  In  such  a 

way  that  o = 1*0  for  a finite  consolidation  pressure  P . The  new  form  is 

c 

then 

- = -/  + 6 in  (1  + C - (53) 

a ot  a 

With  O'  = 1.0,  Eq.  (53)  can  be  solved  for  the  consolidation  density  p and 

c 

for  the  value  of  o'  at  consolidation. 


cl  . ^ 

— = — = 1 - 6 /ne 


°so  c 


(54) 


Under  the  assumption  of  a constant  bulk  modulus,  an  expression  for  the 

consolidation  pressure  P can  be  derived  from  Eqs.  (54)  and  (34). 

c 


2Y  ^ 
P rv,  — /nC 
c 3 


For  example,  with  ^ = 0.0001,  = 6.15. 


(55) 
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Equation  (53)  is  solved  for  n by  an  iteration  procedure.  The 
starting  estimate  for  the  iterations  is  based  on  because  a ra  a*  except 
very  near  consolidation.  To  avoid  an  estimate  of  rv  less  than  1.0,  the 
following  estimate  is  used 


O' 


1 


CY*  for  ^ 2 

<y 


1 


O' 


/ 

c 


1 1 o L- 

1 - a/a'  - l/a')/2  ^ " fy" 

c c 


From  this  first  estimate  a Newton-Raphson  method  is  used  to  compute 


Compaction  Curve  of  Herrmann *s  P-a  Model 

The  most  popular  models  for  the  compaction  curve  are  those  known 
5 

generiilly  as  the  P-O'  model.  Here  we  use  a quadratic  relation  between  P and 

6 

a,  which  is  available  in  WONDY  IV  as: 


O’  = 1 + (o' 

y 


(56) 


where  P , o are  the  pressure  and  distension  at  the  yield  point 

y y 

P is  the  consolidation  pressure, 
c 

In  Eq.  (56)  o'  goes  smoothly  from  at  the  initial  yield  to  1.0  at 

consolidation,  as  required.  Also  the  derivative  dfv/dP  is  zero  at 

consolidation  so  there  is  a smooth  transition  from  porous  to  solid. 

The  only  parameters  to  specify  are  therefore  P and  P , quantities  with 

c y 

clear  physical  significance. 

This  model  is  treated  somewhat  differently  from  the  preceding 
three.  To  preserve  the  continuity  at  consolidation,  we  presume  that 
Eq.  (56)  is  valid  for  all  energy  values  up  to  melting.  The  yield  and 
consolidation  pressures  are  interpreted  as  P f(E)  and  P f(E),  that  is. 
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to  reduced  values  appropriate  to  the  current  Internal  energy.  To  eliminate 
the  iteration  procedure  normally  required  to  solve  Uq.  (56),  we  substitute 
densities  for  pressures  in  Eq.  (56).  This  substitution  in  fact  follows  from 
Eq.  (56)  under  the  approximations 


P = 
s 


(57) 


P = P 
s 


(58) 


The  omission  of  ot  in  Eq.  (58)  fcompared  with  Eq.  (14)]  is  the  usual 
assumption  of  the  P-(y  model.  Then  Eq.  (56)  becomes 

2 

a = 1 + (»  - 1)  I ^ \ (59) 

y 


where  p is  the  consolidation  density  at  the  current  energy  E, 
c 

p is  the  solid  density  at  yield  and  the  current  energy, 
sy 

Both  densities  are  functions  of  Internal  energy.  The  first  step  in 

solving  Eq.  (59)  for  ry  is  to  compute  o and  p = cy  p . The  yield  point, 

c sy  y y ^ • 

given  by  the  coordinates  (p  , P f(E),  E)  is  on  the  intermediate  surface 

y y 

that  passes  through  the  initial  density  p^.  It  is  computed  from  Eq,  (21), 

which  is  simplified  because  p = p . The  density  p^ , the  zero-pressure 

o . *^o  u 

density  defined  at  the  current  E,  is  related  to  p through  Eq.  (19) 

o 


Then  Eq.  (21)  is 


P /T 
o 


f 


(60) 


(61) 
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Hence  the  density  at  the  yield  point  is 


The  distension  ratio  o'  = P /p  is  solved  from  the  Mie-Grlinelsen  equation 

y sy  y 

by  neglecting  the  Hugonlot  energy  and  the  D and  S terms. 


-ii+rp  E = c^p 


Inserting  o'  P = P into  Eq.  (63)  yields 
y y sy 


K + rp  E - P 
so 


The  consolldatlcKi  density  p is  found  from  an  iterative  solution  of  the 

c 

iMle-Grlinelsen  equation  with  known  E and  P = P f(E).  Then,  with  p = aP » 

c s 

Eq,  (59)  is  a quadratic  equation  in  y and  can  be  readily  solved.  With 

a known,  p = oP  is  obtained,  and  P is  found  from  the  equation  of  state 
s s 

of  the  solid.  The  required  pressure  on  the  compaction  surface  is  then 

P /o,  where  we  have  now  used  Eq.  (3)  to  define  the  average  pressure  in 
s 

the  porous  material. 


Rate-Dependent  Compaction 

The  process  of  void  compaction  requires  some  time  to  occur.  This 
time  of  compaction  will  appear  as  a rate-dependence  in  the  constitutive 
relations.  Several  models  have  been  proposed  to  represent  this  rate- 
dependence:  three  are  incorporated  here  as  options.  Each  model  requires 

one  additional  parameter,  a time  constant. 
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All  three  have  been  constructed  here  in  a common  form,  the  one 
24 

suggested  by  Herrmann.  The  volume  change  is  separated  Into  three 
components  as  follows 


dV  dV  dV 
dV  s ve  vp 

dt  dt  dt  dt 


(65) 


where  dV  is  the  change  in  solid  volume 
s 

dV  is  the  elastic  change  in  pore  volume 

VC 

dV  is  the  plastic  change  in  pore  volume, 
vp 

The  plastic  change  in  pore  volume  is  rate  dependent  and  not  elastically 


recoverable  on  unloading.  For  instantaneous  loads,  only  elastic  changes 


occur.  For  low  rate  loads,  a large  amount  of  volume  change  may  be  taken 
plastically.  For  intermediate  loads,  the  volume  change  is  partly  elastic 
and  partly  plastic.  The  foregoing  process  matches  exactly  the  behavior 
usually  assumed  for  rate-dependent  shear  deformation. 

Butcher *s  P-g-r  Model 

7 

To  account  for  the  rate-dependent  effects  that  Butcher  observed 
in  the  compaction  of  polyurethane  foam,  he  proposed  a rate-dependent  model 
in  which  the  dynamic  pressure  could  exceed  the  static  for  short  duration 
loads.  He  proposed  the  following  relation  between  the  dynamic  overpressure 


P - P and  the  rate  of  change  of  distension  d^/dt. 
st 


dt  dt 


(66) 


where  ^ is  the  value  of  for  purely  elastic  compaction 
e 

P is  the  pressure  on  the  rate-independent  compaction  surface 
st 

T is  a time  constant  and  do;  /dp  is  taken  along  a loading  path. 

e 

Rate-dependent  ef feces  can  occur  whenever  the  pressure  computed  on  an 

elastic  basis  exceeds  the  pressure  on  the  compaction  surface,  P . The 

st 

pressures  involved  in  the  compaction  process  are  shown  on  the  P-V  diagram 
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of  Figure  14.  The  dynamic  pressure  P can  be  approximated  as  the  following 
function  of  Of, 


Of  - Of 


st2 


P = P + — 

St  a - a 


st2 


(p  - p ) 
e st2 


(67) 


where  Of  and  Of  are  distension  ratios  corresponding  to  P , the  pressure 
e st2  e 

at  the  current  density  based  on  elastic  behavior,  and  P , the  value  of 

s 1 2 

P at  the  current  density.  The  derivative  dOf  /dt  in  Eq.  (66)  is  taken 
st  e 

as  a constant  for  each  time  step  At. 


dOf  Of  - Of 
e e 1 

dt  ~ At 

It  can  be  shown  that  the  derivative  dOf  /dP  in  Eq. 

e 

by 


(68) 

(66)  is  given  approximately 


dOf  a 
e _ o 


dP 


K 


(69) 


where  (dOf  /dP)  is  taken  as  a material  constant.  Equations  (67),  (68), 
e o 

and  (69)  are  then  substituted  into  Eq.  (66). 


dt 


(70) 


The  following  value  of  Of  is  obtained  by  Integrating  Eq.  (70)  and  evaluating 
the  result  at  the  current  time. 


Of 


T %t2  \l%  ' ^1  \ At/"*%\  /P  - P _ \ 

At\P  -P  A(da  /dP)  /'  %t2  “l  W / (tT — ) 

\ e st2'  'e  o’  ''o\0f-0f  / 

L J L ' e st2 ' 


+ a 


T(0f  - Of  ) 
e st2 


Of  - a 
e 1 


st2 


At(P  - P „)  (da  /dP) 

e st2  e o 


This  result  indicates  that  a approaches  a 


st2 


(71) 

as  T goes  to  zero,  and  a 


approaches  a as  T goes  to  infinity,  as  required, 
e 
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FIGURE  14  PRESSURE-VOLUME  DIAGRAM  FOR  POROUS  MATERIAL  SHOWING 
STATIC,  ELASTIC,  DYNAMIC  COMPRESSION  PATHS 
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Holt's  Model  for  Rate-Dependent  Compaction 


2 

Holt  Introduced  a rate-dependence  that  is  a function  of  ^he 
difference  between  the  current  distension  and  the  equilibrium  distension 
at  the  same  density : 


d(y 


(72) 


where  Is  the  value  of  ot  ^or  the  density  p on  the  static  compaction 
s 

surface,  and  T Is  a time  constant.  This  form  contains  the  assumption 
that  there  Is  no  elastic  change  In  (v  associated  with  changes  In  density. 
When  this  elastic  change  Is  Included  and  the  equation  rearranged,  the 
result  Is 


dt 


(V  “ O' 


st 


T 


(73) 


where  d^  /dt  1s  the  elastic  change.  Here  d(cy  - q/  )/dt  Is  the  rate  of 
e e 

Inelastic  change  In  and  Is  proportional  to  the  difference  between 

^ and  O'  . Thus  the  rate  goes  to  zero  as  approaches  a • To  Integrate 
st  st 

Eq.  (73),  It  Is  assumed  that  dor  /dt  Is  a constant,  as  In  Eq.  (68),  and 

e 

that  ct  varies  linearly  with  time  from  a to  ry  . Then  Eq.  (73)  takes 
st  stl  st2 

the  form 


The  solution  to  Eq.  (74)  evaluated  at  the  current  time.  Is 


a = “(a  ” ry, ) + cy  . T ^cy  ..o 

/\t  e 1 st2  ^t  st2 


cy  . . ) 

stl 


+ 1'^  - — (of  - cy  ) - cy  + — (cy  - cy  >1  exp(-^T^t)  (75) 

1^  1 ^t  e 1 stl  ^t  st2  stl  J 

For  small  values  of  At/<r,  a <y  > while  for  large  values  of  At/T»  a — a 

e st2 

hence  the  physical  requirements  are  met. 


From  a comparison  of  Eqs.  (66)  and  (73),  Holt's  model  appears 
to  have  a completely  different  physical  basis  from  Butcher's.  However, 
similarity  in  the  model  can  be  demonstrated  by  placing  Eq.  (69)  into  Eq.  (66) 
and  equating  the  right  hand  side  to  the  right  hand  side  of  Eq.  (73). 


do  0-0  P-P  do  0-0 
do  e e 1 ^ e ^ 

dt”dt'*^P-P*  T "dt~T 
e 1 B H 


(76) 


where  T and  T are  time  constants  for  Butcher's  and  Holt'n  models.  The 
B H 

time  constants  of  the  two  models  are  related  as  follows 


do 


which  is  obtained  from  Eq.  (76).  The  two  derivatives  may  be  evaluated 
approximately; 


do  op  op  2 

e _ so  oi  _ o o 

dP  K p K p K K 
s i si 


(78a) 


and 


(78b) 


With  the  foregoing  values  of  the  derivatives,  the  relationship  between 


the  time  constants  is 


T 

B 


K 

s 

K O 
i 


1 


(79) 


If  were  nearly  constant,  then  the  two  models  would  be  equivalent. 

Generally  T„  will  be  much  larger  than  T for  the  same  material.  We  note 
H B 

that  for  K = K /o,  the  Butcher  model  provides  no  rate  dependence. 

1 s 
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Linear  Viscous  Void  Compaction 


The  linear  viscous  void  compaction  model  Is  derived  from  the 
25  26 

work  of  Berg  and  Porltsky,  and  from  our  observations  of  void  growth. 
For  this  model  It  Is  presumed  that  the  material  surrounding  the  void 
follows  a linear  viscous  law  with  a coefficient  of  viscosity  t).  Ther, 
neglecting  Inertial  and  surface  tension  effects,  the  rate  of  change  of 
unrecoverable  relative  void  volume  Is 


3(P  -P^^) 
s th 


Thus  the  rate  of  plastic  void  collapse  Is  dependent  on  the  dynamic  over- 
pressure, P -P^.  , acting  In  the  solid  material,  and  on  the  current  void 
s th 

volume.  With  the  presumption  that  pressures  vary  linearly  during  the 
time  Increment,  Eq.  (80)  can  be  Integrated  to  obtain 


V = exp 
vp  VO 


r.M/p . 

L ’ 


P + P - P 
th  so  thOj 


where  v Is  the  relative  void  volume  at  the  beginning  of  the  time  Increment 

VO 

P , P are  pressures  In  the  solid  material  at  the  end  and  beginning 
s so 

of  the  increment 

P^^,  P , are  the  threshold  pressures  for  growth  at  the  end  and 
th  tho 

beginning  of  the  Increment. 

The  elastic  void  volume  change  occurs  because  of  a change  In  pressure  from 

P to  P . The  elastic  modulus  associated  with  this  change  is  the  one 
so  s 

governing  the  void  volume  change  from  P to  P . Therefore,  this  elastic 

so  se 

change  In  void  volume  Is 


P - P 
s so  / 

AV  = — (V  - V 

ve  P - P \ ve  I 
se  so  ' 


V \ 
o VO  J 
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where  v and  v are  the  relative  void  volumes  associated  with  the 
e VO 

pressures  P and  P , and  V and  V are  gross  specific  volumes. 

SG  SO  O 

For  the  model  calculations,  the  pressure  Is  determined  by 
requiring  the  elastic  and  plastic  void  volume  change  and  the  solid  volume 
change  to  match  the  total  volume  change  as  in  Eq.  (65).  The  plastic 
volume  change  follows  Eq.  (81). 

The  solid  volume  change  is  presumed  to  be  linearly  related  to 
the  solid  pressures  at  the  current  gross  density. 


V = 
s 


V 

sth 


V 

sth 


se 


(83) 


where  V and  V are  solid  specific  volumes  corresponding  to  P and 
sth  se  th 

p 

se.  When  Eqs.  (81),  (84),  and  (83)  are  inserted  Into  Eq.  (65),  the 
following  results. 


where  T^  = -3/{4r\),  the  growth  coefficient. 

Eq.  (84)  is  then  solved  by  iteration  to  determine  P^.  The  first  approxi- 
mation Is  obtained  by  assuming  that  P - P ^ are  approximately  equal  to 

s th 

P - P^,  . The  last  term  in  Eq.  (84)  is  then  linearized  as  follows; 
so  tho 
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The  resulting  equation  is  then  solved  for  P = P^,  the  first  approximation. 

S B 

With  P^  in  Eq,  (84),  a value  of  AV  = AV*  is  obtained.  The  second  itera- 
s 

tion  begins  with  a linearization  as  in  Eq.  (85)  based  on  the  assumption 

that  there  is  a small  difference  between  P and  P^. 

s s 

The  foregoing  iteration  scheme  works  best  for  small  changes  in 
density.  Therefore,  a provision  is  made  for  subcycling  in  cases  where 
large  changes  in  density  occur  in  a single  time  step. 

Discussion  of  Rate-Dependent  Models 

All  three  of  the  foregoing  models  were  derived  to  fit  observed  pore 

volume  change  data,  and  they  were  cast  in  a form  like  the  modified 

13 

Maxwell  element  proposed  by  Zener  for  shear  stress  relaxation.  But  in 

fact,  do  any  of  these  models  really  represent  dynamic  por  collapse  in 

a solid  with  a stress  relaxation  like  the  Maxwell  model?  This  question 

27 

can  be  answered  by  a recent  analysis  of  Carroll  in  which  he  treated 
spherically  symmetric  void  compaction  in  such  a solid.  The  equation  of 
motion  he  obtained  for  the  combination  of  void  and  solid  matexial  is 


P = P ^(a)  + Q(a,(i,a)  - -- ^ <86) 

St  3a(a  - 1) 

where  P is  the  external  pressure  and  Q is  an  acceleration  term  that  mi»vht 
be  neglected  in  a macroscopic  model.  Since  the  material  is  treated  as 
rigid-plastic,  no  elastic  term  appears.  Comparing  Eq.  (86)  with  Butcher's 
model  in  Eq.  (54)  and  neglecting  Q and  the  elastic  term  in  (54),  we  see 
that  the  time  constant  t must  be  given  by 


TdP  4n 

da  ~ 3a(a  - i) 
e 


(87) 


Thus  dP/da  must  be  given  a special  form  for  t to  remain  constant, 
e 

The  usual  form  for  the  linear  viscous  model  can  be  derived  from 
Eq.  (86)  by  replacing  a with  v^  thi'ough  the  aid  of  Eq.  (6).  The  resulting 
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V 


which  is  equivalent  to  Eq.  (80)  for  rigid-plastic  behavior  with  the  solid 
pressure  equal  to  the  porous  pressure.  Thus  the  linear  viscous  model  used 
here  has  the  correct  physical  form  for  describing  pore  collapse  in  elastic- 
plastic  material  from  initial  yielding  to  full  compaction. 


Rate-Independent  Fracture  Surface 


The  fracture  surface  is  defined  in  P-V-E  space  in  the  same  way 
as  the  compaction  surface.  The  shape  is  similar  to  the  compaction  (yield) 
surface  shown  in  Figure  2:  the  ordinate  increases  in  the  tensile  sense 

with  density,  and  decreases  with  increasing  internal  energy,  A curve  on 
the  surface  is  shown  in  Figure  8.  The  intercept  of  the  surface  with  the 
solid  equation  of  state  determines  the  threshold  pressure  for  fracture  of 
solid  material.  All  other  points  define  thresholds  for  pox’ous  or  par- 
tially fractured  material.  The  surface  is  assumed  to  be  unique  so,  for 
a given  (p,E)  state,  the  behavior  is  the  same  whether  the  porosity  results 
from  fracture  or  from  the  manufacturing  process.  Two  options  are  provided 
for  treating  this  surface.  In  the  constant  strength  option,  the  threshold 

pressure  in  the  solid  material  (P  ) is  taken  as  a function  of  internal 

s 

energy  only.  Then  the  threshold  pressure  P in  the  porous  material  decreases 

with  increasing  a,  because  P = P /a.  The  second  option  is  the  Carroll- 
3 ® 

Holt  model,  which  is  also  used  in  compression.  The  algebra  of  this  model 
is  handled  as  described  earlier. 


Rate-Dependent  Fracture 

Fracture  occurs  gradually  through  the  nucleation  and  growth  of  small 
voids  or  cracks.  Because  these  processes  require  time,  a rate-dependent 
relationship  should  be  used  for  dynamic  calculations.  Currently  the  PEST 
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subroutine  contains  the  SRI  model  for  ductile  fracture. 

The  ductile  fracture  model  fits  naturally  Into  the  PEST  subroutine 

because  they  are  both  concerned  with  pressure  and  not  with  deviator 

stress.  The  ductile  fracture  model  has  been  described  in  detail  else- 
8 

where  and  Is  simply  summarized  here. 

The  nucleatlon  rate  Is  given  by  the  expression 


ft  = S 

o 


(89) 


where  P Is  the  threshold  pressure  In  the  solid  material  required  to 
th 

permit  nucleatlon.  The  corresponding  pressure  on  the  rate- 

dependent  surface  Is  P = P /a. 

st  th 

P , Is  a parameter  governing  the  sensitivity  of  the> material 
nl 

to  nucleatlon. 

ft  Is  a nucleatlon  rate  constant. 


The  voids  are  presumed  to  be  nucleated  according  to  a distribution; 


N (R)  = NAt  exp{-R/R  ) (90) 

e n 

where  N Is  the  number  of  voids  per  unit  volume  larger  than  R 
g 

R Is  a nucleatlon  distribution  parameter 
n 

At  is  the  time  Increment. 

By  Integrating  wl'ih  respect  to  R over  the  entire  distribution,  we  obtain 
a nucleated  void  volume 


Here  P , and  P^. 

th  tho 

time  Increment. 


4 3 . 

Av  = 6 • - trR  NAt 
n 3 n 


= 8 TTR  N At  exp 
n o 


( 


P - P + P - P 
s th  so  tho 


2 P 


nl 


) 


(91) 


are  threshold  pressures  at  the  end  and  beginning  of  the 


65 


The  void  growth  rate  is  given  by 


V 

V 


3(P 

s 


"th> 


4ti 


V 

V 


(92) 


where  P is  the  threshold  pressure  for  growth.  There  is  no  theoretical 
th 

justification  for  using  solid  pressure  rather  than  gross  pressure  in 
Eq.  (92).  However,  use  of  the  solid  pressure  permits  fracture  to  continue 
to  full  separation  rather  than  being  quenched  when  the  pressures  are  low. 
Thus  this  form  is  used  until  more  is  learned  about  the  late  stages  of 
fracture. 

The  solution  for  pressure  in  the  ductile  fracture  model  proceeds  as 
in  the  linear  viscous  void  model  with  the  addition  of  nucleated  volume  as 
part  of  the  plastic  void  volume  change.  The  exponential  in  Eq.  (91)  is 
approximated,  in  the  same  manner  as  the  growth  exponential  in  Eq.  (85). 


Summary  of  Model  Changes 

Most  of  the  foregoing  models  for  porous  behavior  are  derived  from 
work  of  other  investigators.  The  following  changes  were  made  in  these 
models  to  put  them  into  a form  suitable  for  insertion  into  PEST. 

• The  Holt  model  was  augmented  to  Include  elastic  behavior, 
deviator  stresses  and  the  effects  of  internal  energy. 

Also  the  static  P-V  curve  was  given  a different  analytical 
form  because  Holt's  form  did  not  increase  monotonically . 

1 

• The  POKEQST  was  improved  to  provide  a more  rigorous  treatment 
of  the  intermediate  surfaces. 

3 

• The  Carroll-Holt  model  was  expanded  to  Include  elastic  behavior, 
deviator  stress,  and  thermal  effects. 

5 

• Herrmann's  P - 0(  model  was  recast  as  a p - a model,  and 
changes  were  made  for  elastic  and  thermal  behavior. 
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• Butcher's  model  was  modified  to  Include  thermal  effects  and 

deviator  stresses.  Also  the  treatment  of  elastic  behavior 

was  altered  slightly,  and  the  relation  between  pressure  in 

the  solid  and  porous  material  was  changed  from  P = P to  P = OfP« 

s s 

• The  dynimlc  fracture  model  was  altered  to  permit  elastic  behavior 
of  the  pore  volume.  Previously  the  void  volume  was  allowed  to 
change  only  by  viscous  growth  and  not  by  elastic  expansion. 
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Ill  EQUATION  OF  STATE  FOR  SOLID  MATERIALS 


In  hydrodynamic  calculations,  the  equation  of  state  provides  the 

pressure  as  a function  of  Internal  energy  and  specific  volume.  (In  a 

complete  equation  of  state  pressure,  energy,  volume,  tei.perature,  and 

entropy  are  determined.)  The  material  may  be  treated  as  solid,  liquid, 

or  vapor  or  in  a mixed  phase.  In  simple  equations  of  state,  such  as  the 

9 

one  used  in  the  PUFF  code,  an  accurate  treatment  is  given  of  the  equation 
of  state  surface  only  in  the  vicinity  of  the  Hugoniot.  Since  it  is  presumed 
that  the  material  expands  similarly  to  a perfect  gas,  a modified  gas 
equation  is  used  for  expanded  states.  Between  the  Hugoniot  and  the  highly 
expanded  states,  a fitting  function  is  used.  For  computer  calculations 
to  follow  wave  propagation  in  a material,  a choice  must  be  made  between 
the  simple  and  sophisticated  types  of  equation  of  state.  The  sophisticated 
equations  of  state  may  require  much  more  data  than  are  available.  Even 
if  available,  these  data  are  normally  procured  at  static  testing  rates,  and 
therefore  the  data  and  possibly  the  form  of  the  equation  of  state  are 
inappropriate  at  shock  loading  rates.  Although  the  simple  equation  of 
state  provides  little  insight  into  the  detailed  behavior  of  the  material, 
it  has  the  advantage  of  containing  only  a few  )>arameters  that  must  be 
varied  to  match  the  experimental  data. 

In  the  current  SRI  PUFF  wave  propagation  code,  three  equation-of-state 
options  for  solids  are  provided.  The  first  is  the  usual  PUFF  equation  of 
state:  a combination  of  the  Mie-Grlineisen  form  for  compressed  states  and 
the  PUFF  expansion  relation  for  expanded  states.  As  a second  option,  an 
extended  version  of  this  PUFF  equation  of  statt  was  constructed  and 
incorporated  into  a subroutine  ESA.  This  new  equation  of  state  adds 
some  flexibility  in  fitting  dyr':-'tc  and  thermal  data.  The  third  option 
is  the  three-phase  equation  ^«.ate  constructed  by  Phllco-Ford  and 
implemented  in  the  subroutine  EQSTPF.  The  ESA  and  EQSTPF  options  are 
described  here  and  listed  in  more  detail  in  Appendices  D and  C. 
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Extended  Two-Phase  Equation  of  State;  ESA 


The  ESA  equation-of-state  model  constructed  here  is  Intended  to 
simulate  approximately  the  more  complex  surfaces  of  the  multiphase 
equations  of  state  while  retaining  enough  simplicity  that  its  parameters 
can  provide  a match  to  experimental  data.  Specifically  the  new  model 
should  provide  the  following  three  features; 

(1)  Variable  Grlineisen  ratio  as  a function  of  energy  and  density. 

(2)  A nonlinear  variation  of  pressure  with  energy  at 
constant  density. 

(3)  An  approximate  simulation  of  unloading  isentropes 
of  the  multiphase  equations  of  state. 

The  ESA  equation-of-state  model  is  constructed  in  the  following 
way.  A Mie-GrUnelsen  form  is  adopted  for  compression,  and  terms  are 
added  for  varying  the  Grlineisen  ratio  and  producing  the  nonlinearity 
in  internal  energy.  For  the  expanded  states,  the  forms  used  are  similar 
to  those  used  in  the  compression  states  for  varying  Grlineisen  ratio  and 
internal  energy.  In  addition,  a series  expansion  is  made  in  density. 

As  with  the  PUFF  equation  of  state,  the  expansion  and  compression  forms 
are  Joined  at  the  initial  solid  density.  At  that  density  the  pressure 
must  be  equal  in  the  two  forms  and  the  derivative  DP/Dp  must  be  equal 
from  both  expressions.  Additional  constants  in  the  expansion  equation 
of  state  are  evaluated  by  requiring  that  the  equation  of  state  surface 
pass  through  given  pressure,  density,  energy  state  points.  Such  state 
points  might  be  the  zero  pressure  melt  point,  a boiling  point,  and  a 
critical  point.  Or  one  or  two  of  them  might  lie  on  an  unloading  isentrope 
obtained  fiom  experimental  data  or  from  a multiphase  equation-of-state 
calculation. 
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For  compressed  states,  that  is,  states  where  the  density  is  greater 
than  the  initial  solid  density,  a modified  form  of  the  Mie-Grliuelsen 
equation  of  state  is  used.  The  following  form  was  adopted: 

2 3 / ^o^  ^1^ 

P = (Cm,  + Du  + Su  ) II  - — — 

2 

+ (F  + F U)  E 
1 2 

where  C,  D,  S ure  usual  Hugoniot  coefficients 

U = p/p  - 1 is  strain 
o 

p is  density 

p is  initial  density 
o 

r , r are  Grlinelsen  coefficients 
0 1 

F , F are  constants  for  nonlinear  energy  effect 
X 2 

E is  internal  energy. 


+ (r 


r^u)pE 


(93) 


In  Equation  (93),  is  the  usual  Grllneisen  ratio,  describes  the 
variations  of  Gruneisen  ratio  with  density.  For  example,  to  make  the 
factor  rp  approximately  constant,  let  = - F^.  The  derivatives  of 
the  pressure  from  Equation  (93)  are  used  to  assure  continuity  with  the 
expansion  equation  and  to  determine  the  sound  speed.  These  derivatives 


+ 


(Cu  + 


2 3 

Du  + Su  ) 


1 

P 


o 


F E 
2 

+ (F  + T'  + 2F  U)  E + 

0 1 1 p 


(94) 
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(95) 


{$)  - % * V’"  " ""■!  " 

P 

The  equation  of  state  for  expanded  material,  that  Is,  for  p less 

than  p Is ; 

0 

2 

P = P(gQ  + gj^P)E  + p(h^  + ph^)E 

2 3 

+ (p  - Pq)  (b^  + b^p  + b^o  + b^p  ) (96) 

where  g^,  g^^,  h^,  h^,  b^...  b^  are  constants. 

In  equation  (96)  all  the  terms  are  written  as  functions  of  p rather 
than  u,  as  In  the  compression  equation  of  state.  The  p form  Is  used 
so  that  as  p approaches  0,  the  nonlinear  terms  In  p will  disappear  and 
the  equation  approaches  the  perfect  gas  form  P = pfE. 

For  use  In  the  sound  speed  calculations  which  are  given  later,  the 
two  derivatives  of  Equation  (96)  are  listed: 

+ (b  + b p + b p^  + b p^)  + (p  - p ) (b  + 2b  p + 3b  p^)  (97) 

Ul2o  Ol2J 

j = P(gg  + gjP)  + 2p(h^  + ph^)E  (98) 

'P 

A smooth  joint  at  p = p^  Is  produced  between  the  compression  and 

expansion  equations  of  state  by  requiring  that  the  pressures  and  the 

derivative  of  pressure  with  respect  to  density  are  equal  at  p = p • 

0 

For  making  this  joint  calculation  It  Is  presumed  that  all  the  parameters 
of  the  compression  equation  of  state  are  known  and  that  the  joint  require- 
ments serve  to  evaluate  some  of  the  expansion  parameters.  With  this 
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approach  and  the  use  of  Eqs.  (93),  (94),  (96),  and  (97),  we  obtain 
the  following  conditions: 


*0  = ''o  - Ti 


h = — (2F  - F ) 

0 Pq  1 2 


= 


(F  - F .) 


2 2 


2 3 

(b  + b,p  + b„p  + b p ) 
0 10  2^0  30 


(99) 


Evidently  three  more  conditions  can  be  Imposed  to  evaluate  the  b terms 
in  the  expansion  equation  of  state.  The  conditions  we  wish  to  impose 
are  that  the  expansion  equation  of  state  surface  pass  through  three 
state  points  identified  as  follows: 


<Pj.  Pj.  Ej).  V "’s'  ‘’3’ 

For  convenience  in  evaluating  the  b terms  in  the  expansion  equation  of 
state,  we  introduce  a new  variable  R,  which  is  simply  the  contribution 
of  the  b terms  to  the  pressure  in  Eq.  (96). 


R = P - p(g^  + g^p)E  - p(h^  + oh^)E^ 

2 3 

=(P-p)(b  +bp+bp  +bp) 
0 0 1 2^  3 


(100) 
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The  solution  for  the  b coefficients  can  now  be  obtained  by  inspection  by 
rewriting  R in  the  following  expanded  form: 


R = 


- Pq)(P  - Pj)(p  - PgHP  - P3) 


(p  - p)(P  -p)(p  -p) 

0 1 0 2 0 3 


Aj(p  - Pq)  (p  - PgHP  - P3) 
(Pj  - P„)^P^  - PjXp^  - P3) 


^2^^  - pQ^  <P  “ Pi^^P  " P3> 

^<‘2  - ■ ‘’3’ 


Aa(p  - Pq)  (p  - 0^)(p  - p2> 

<'’3  ■ ‘’o>^<»3  ■ •’l>“’3  ■ '’2' 


(101) 


where  the  A^  are  constants  to  be  determined.  The  constants  are  evaluated 
from  the  following  observations: 


R = 0 at  p = p 


R=A  at  p=p  for  1=1, 2, 3 
11  ’ ’ 


— = A at  p = p 
do  0 ^0 


(102) 


By  comparing  the  conditions  in  Eqs.  (102)  with  Eq . (100)  we  can  evaluate 
the  constants  as  follows: 


C 

^ Po 


(103) 
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Thus  a complete  solution  is  now  available  for  all  the  constants  in  the 
expansion  equation  of  state.  However,  for  the  computer  calculations  it 
will  be  expedient  to  evaluate  the  b terms  from  the  terms.  This 
evaluation  is  performed  in  two  steps:  first,  multiply  all  the  factors 

in  the  numerators  of  Eq.  (101)  to  obtain  series  expressions  in  p.  For 
convenience  the  following  dlfinitions  are  made: 

A 

o 

“o“  <P„  - PjXPo  - »2><%  - V 

A 

i 

^i  ” 2 

(Pi  - 0^)  (p^  - OjXp^  - Pfc>  i = 1.  2,  3 (104) 

i j ^ k 


Now  when  the  expanded  terms  are  collected  into  a single  series  in  p,  the 
b terms  can  be  evaluated  as  follows: 
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Besides  computing  pressure,  the  equatlon-of-state  subroutine  in  a 
wave  propagation  computer  code  is  often  required  to  compute  sound  speed. 
For  the  present  calculations  the  sound  speed  referred  to  is  the  bulk  sound 
speed,  dependent  only  on  the  pressure  term.  The  square  of  the  sound  speed 
is  given  as  the  derivative  of  pressure  with  density  along  an  isentrope 
and  has  the  following  form: 


Since  the  present  equation-of-state  model  does  not  'include  entropy,  the 
first  form  for  the  sound  speed  cannot  be  evaluated.  However,  the  sound 
speed  can  be  determined  from  the  other  two  derivatives;  these  are  given 
in  Eqs.  (94),  (95),  (97),  and  (98). 

Philco-Ford  Equation  of  State 

10 

The  Phllco-Ford  model  is  a three-phase  equation  of  state  for  metals. 

It  was  selected  for  the  present  project  because  it  appeared  to  provide 
enough  flexibility  that  it  could  be  applied  to  ceramics  and  other  nonmetals. 
This  equation  of  state  was  incorporated  into  a subroutine  described  by 
Goodwin, et  al.  Our  subroutine  is  organized  very  differently  from  Goodwin's, 
but  the  equation  of  state  is  not  modified.  This  equation  of  state  is  described 
in  some  detail  here  because  of  the  unavailability  of  Goodwin's  report. 

This  model  treats  specifically  the  solid,  liquid,  and  vapor  phases, 
mixed  liquid-vapor  and  solid-liquid  phases,  and  the  phase  boundaries.  These 
regions  are  shown  in  Figure  15.  The  solid  phase  is  handled  by  a Mie-Grlineisen 
equation  of  state.  The  pressure-volume-temperature  relation  for  the  solid- 
liquid  mixed  phase  is  the  Clapeyron  equation.  In  addition  it  is  assumed 
that  the  following  ratio  is  Independent  of  temperature. 
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E (T)  - E (T) 
I s 


(107) 


AE 


V (T)  - V (T)  AV 
is  o 


Here  E and  E are  internal  energies  In  liquid  and  solid. 

I s 

V and  V are  specific  volume  of  liquid  and  solid,  all  defined  at 

i s 

the  same  temperature. 

AE  is  approximately  equal  to  the  heat  of  fusion  at  zero  pressure, 
o 

AV  is  the  volume  change  from  solid  to  liquid  at  zero  pressure, 
o 

Then  the  Clapeyron  equation  takes  the  form 
AE  ^ 

P(T)  = ( - 1)  (108) 

o M 

where  T and  T are  temperature  and  temperature  of  melting.  The  internal 
M 

energies  E and  E in  the  liquid  and  solid  phases  in  the  mixed  phase 

i s 

region  are  computed  from  the  following  relations 

AC  T 

E = E + C T (T/T  -1) (T  /T  - 1)  (109) 
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where  E and  E are  Internal  energies  at  zero  pressure  on  the  phase 
/o  so 

lines  on  either  side  of  the  solid-liquid  region. 

C is  the  average  specific  hert  at  constant  pressure  in  solid 
and  liquid  phases. 

AC  is  the  difference  between  liquid  and  solid  specific  heats. 

The  phase  line  between  solid  and  mixed  solid-liquid  phases  is  obtained 
by  equating  pressures  in  the  two  regions  at  the  same  density  and  internal 
energy.  The  phase  line  between  the  liquid  and  the  mixed  solid-liquid 
phases  is  determined  by  computing  the  point  where  the  solid  fraction  of 
material  just  reaches  zero. 
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The  liquid  phase  equation  of  state  is  simply  an  Interpolation  function 
between  the  phase  lines  on  either  side.  The  interpolation  is  a combined 
linear  and  logarithmic  function  of  density  along  lines  of  constant 
internal  energy. 

The  phase  line  between  liquid  and  more  expanded  states  is  given  by 
the  Hlrschfelder  relation  up  to  the  critical  point. 


— = 1 + c 
P„ 


V 1/3 

(l  - — ) + (1  (l  - — ) 

1 I T J 1 I T J 


(111) 


where  p is  the  density  in  the  liquid  phase 

p is  the  density  at  the  critical  point 

T and  T are  variable  temperature  and  melting  temperature 
M 

Cj^  and  d^  are  material  constants. 

Above  the  critical  point  the  phases  are  divided  arbitrarily  by  the  specific 
volume  at  'he  critical  point.  The  pressure  in  the  mixed  liquid-vapor  phase 
is  given  by  a modification  of  the  Clapeyron  equation. 

T 


r = ‘“a  - "b’"  T ’ * "b  F 

c M 


(112) 


where  P and  P are  pressure  and  pressure  at  the  critical  point 
c 

0/  and  a are  material  constants, 
a b 

The  Internal  energies  E and  E in  vapor  and  liquid  states  in  the  mixed- 

V I 

phase  region  are  given  by 
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where  E is  the  Internal  energy  of  ideal  gas  at  zero  temperature 
o 

C is  specific  heat  of  vapor  of  constant  volume 

V 

Z = P V /RT  , nonideal  gas  compressibility  factor  at  critical  point, 
c c c c 

T ,P  , V , p are  temperature,  pressure,  volume,  nnd  density  at 
c c c c 

critical  point. 

p , V are  density  and  specific  volume  of  vapor 

V V 

V is  specific  volume  of  liquid 
t 

k , k , k , cy  , O'  constants 

o 1 2 a b 

R is  the  gas  constant. 

The  pressure  in  the  vapor  state  is  given  by  a relation  due  to 
Hirschfelder , a generalization  of  the  van  der  Waals  equation  of  state. 
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b and  b'  and  material  constants 

a and  a'  are  functions  of  T/T  . 

M 

The  phase  line  between  vapor  and  mixed  liquid-vapor  phases  is  found  by 
equating  pressures  in  the  two  regions  at  the  same  internal  energy  and 
density. 

The  SRI  subroutine  incorporating  the  Philco-Ford  model  is  given  in 
Appendix  C together  with  a description  of  the  nomenclature  and  sample 
input  data  for  aluminum,  beryllium,  anci  titanium. 
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IV  METHODS  FOR  DERIVING  POROUS  MODEL  PARAMETERS  FROM  DATA 


To  derive  a set  of  constitutive  relations  for  porous  material  It 
Is  necessary  to  have  a quantity  of  material  data  available.  The  cost 
of  data  acquisition  can  be  reduced  by  performing  only  those 
experiments  that  will  provide  the  most  Important  data.  Several  of  the 
common  sources  for  data  and  the  types  of  data  that  may  be  obtained  from 
them  are  described  here.  Duplicates  sets  of  Information  may  be  obtained 
In  many  categories,  but  this  Is  often  necessary  because  of  the  uncertainty 
In  the  data  from  each  source.  In  addition,  some  data  may  be  obtained  at 
static  testing  rates  and  room  temperature, whereas  the  Information  desired 
would  pertain  to  Impact  testing  rates  and  near  melting.  In  the  absence 
of  better  data,  however,  the  static,  low-tempcrature  data  can  be  useful 
in  guiding  estimates. 

With  the  available  set  of  data  summarized,  the  methods  used  for 
constructing  the  material  model  are  developed.  This  construction  proceeds 
in  two  steps.  First  the  data  are  used  to  construct  graphic  forms  for  such 
functions  as  the  compaction  curve  and  the  thermal  strength  reduction  factor. 
When  all  the  necessary  functions  have  been  constructed,  a set  of  mathematical 
models  describing  each  aspect  of  the  constitutive  relations  for  porous 
materials  is  selected,  and  the  parameters  for  these  models  are  chosen  by 
fitting  them  to  the  appropriate  functions. 

Data  Sources 

For  most  materials,  some  handbook  data  are  available  for  solid  and 
possibly  for  porous  material.  The  thermal  expansion  coefficient  for  the 
solid  material  aids  in  constructing  the  intermediate  surface  for  the  porous 
material  and  guides  the  selection  of  the  Grlineisen  ratio  for  solid  and  porous 
material.  The  bulk  modulus  aids  in  constructing  the  intermediate  surface 
and  also  in  reducing  Hugonlot  data  into  separate  pressure  and  deviator 
stress  components.  The  Gruneisen  ratio  and  Hugonlot  parameters  for  the 
solid  aro  Indlspenslble  In  constructing  the  equation  of  state  for  the 
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porous  and  solid  material.  Sound  speeds  and  the  Poisson  ratio  can  be 
helpful  in  determining  shear  and  bulk  moduli  from  Hugonlot  data.  The 
shear  modulus  is  also  helpful  in  interpreting  Hugoniot  data.  Thermal 
strength  reduction  information  is  usually  available  from  slow  testing- 
rate  experiments  and  can  give  a lower  bound  on  the  true  thermal  strength 
reduction  factor  for  dynamic  experiments.  The  yield  strength  can  aid  in 
interpreting  Hugonlot  data  and  in  providing  fracture  parameters  for  porous 
and  solid  materials. 

Quasi-static  one-dimensional  compression  experiments  are  often 
conducted  on  porous  materials  to  obtain  the  crush  curve,  that  is,  a 
loading  line  across  the  compaction  surface  in  energy-pressure-volume 
space.  If  intermediate  unloading  and  reloading  occur  during  the  compression 
experiment,  bulk  moduli  may  be  obtained  to  aid  in  determining  the  intermediate 
surfaces  for  the  porous  material.  If  lateral  stresses  are  measured  as  well 
as  axial  stresses,  an  indication  of  the  magnitude  of  the  deviator  stress 
is  obtained. 

Impact  experiments  can  provide  loading  and  unloading  paths  and  the 
equation-of-state  surface  for  the  solid  and  the  constitutive  relations 
for  the  porous  material  at  the  appropriate  testing  rates  and  temperatures. 

If  multiple  embedded  gages  are  used  and  a Lagranglan  analysis  is  performed 
on  the  resulting  stress  or  velocity  records,  unloading  moduli  may  be 
obtained  for  construction  of  the  intermediate  surfaces  of  the  porous 
material.  If  a Lagranglan  analysis  is  not  performed,  it  will  be  necessary 
to  construct  a possible  set  of  constitutive  relations  and  then  simulate 
the  experiment  with  a wave  propagation  computer  program.  If  the  computed 
stress  or  velocity  histories  match  the  experimental  results  closely  enough, 
it  is  assumed  that  the  constitutive  relations  are  correct. 
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Electron  beam  and  x-ray  sources  provide  a means  for  nearly  constant 
volume  heating  of  the  material;  this  condition  allows  for  a study  of  the 
constitutive  relations  in  a direction  unobtainable  by  other  means.  Usually 
stress  or  velocity  gages  provide  records  at  several  points  in  the  target. 
Impulse  may  also  be  measured.  Although  the  measured  results  do  not  give 
any  equation-of-state  information  directly,  important  data  can  be  obtained 
by  estimating  the  complete  set  of  constitutive  relations  for  the  porous 
material  and  then  attempting  to  simulate  the  entire  experiment  with  a 
wave  propagation  computer  program.  Modifying  the  constitutive  relations 
until  the  computed  histories  match  the  gage  measurements  provides  evidence 
about  the  crush  curve  in  the  energy  direction,  the  Grlineisen  ratio  for 
porous  material,  the  moduli  in  the  porous  material,  and  the  vapor  equation 
of  state.  To  guarantee  that  the  resulting  set  of  constitutive  relations 
will  be  applicable  to  a wide  range  of  behavior,  the  radiation  data  base 
must  include  experiments  in  which  the  radiation  depth  is  both  shallow  and 
deep,  and  the  fluenco  levels  must  range  from  those  that  cause  only  yielding 
up  to  those  that  cause  significant  vaporization. 

Construction  of  the  Constitutive  Relations 

Constitutive  relations  for  a porous  material  are  developed  in  two 
stages.  First  all  the  data  are  gathered, and  all  the  necessary  functions 
and  parameters  are  estimated.  However,  much  of  the  data,  such  as  attenuation 
data  and  electron-oeam  and  x-ray  measurements,  cannot  be  used  directly  to 
construct  the  constitutive  relations.  Therefore,  the  next  stage  is  to 
use  the  estimated  relations  to  simulate  some  of  the  experiments  with  wave 
propagation  calculations.  In  this  stage  the  initial  constitutive  relations 
are  modified  to  provide  a satisfactory  match  between  the  recorded  stresses 
or  velocities  and  the  computed  values.  In  the  following  discussion  the 
functions  required  for  the  constitutive  relations  are  listed  and  methods 
for  making  initial  estimates  are  described. 
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Construction  of  the  constitutive  relations  for  a porous  material 

begins  with  the  determination  of  the  equation  of  state  of  the  corresponding 

solid.  Hugoniot  data,  Including  the  bulk  modulus,  solid  density,  and 

Grllneiscn  ratio  must  be  available.  The  yield  strength  and  shear  modulus, 

melt  energy,  and  sublimation  energies  are  also  necessary  to  give  even  a 

minimal  definition  to  the  equation  of  state.  If  experimental  data  are  no^ 

available  on  the  solid,  estimates  of  some  of  these  quantities  can  be  made. 

The  solid  density  can  be  estimated  from  the  theoretical  density.  For 

example  the  density  of  HfTiO.  could  be  estimated  by  the  method  of  mixtures 

4 

from  the  densities  of  HfO  and  TiO  . Moduli,  melting,  and  vaporization 

2 2 

parameters  of  the  unknown  solid  may  be  obtained  from  measurements  on 
substances  from  the  same  family.  Such  estimated  values  should  not  be 
regarded  as  accurate  but  may  be  sufficient  for  treating  material  that 
remains  porous  throughout  the  calculations. 

The  Grlineisen  ratio  should  be  taken  from  energy  deposition  experi- 
ments if  possible.  It  should  provide  the  relation  between  internal  energy 
and  pressure  for  specific  volumes  near  the  initial  specific  volume.  Impacts 
may  give  some  circumstantial  evidence  of  Grlineisen' s ratio,  but  only  for 
densities  and  pressures  that  are  not  critical  for  simulating  x-ray  depositions. 
Thermal  expansion  and  specific  heat  data  may  be  combined  to  form  a Grlineisen 
ratio  as  follows 


r = 


K a 
s t 

P C 
so  p 


(116) 


where  C is  the  specific  heat  at  constant  pressure.  However,  this  method 
P 

of  computing  T is  usually  unreliable.  To  have  any  meaning,  the  four 

quantities  must  be  known  at  the  same  pressure  and  temperature.  If  possible, 

Eq.  (116)  should  be  based  on  average  values  over  the  range  of  temperature 

of  interest.  Thus  we  recognize  that  T,  o'  i K , and  C are  not  constants 

t s p 

and  that  average  values  obtained  in  the  temperature,  pressure,  and  density 
ranges  of  interest  must  be  used. 
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The  development  of  constitutive  relations  for  the  porous  material  begins 
with  the  construction  of  a series  of  functions:  a thermal  expansion  function, 
thermal  strength  effect,  compaction  curve,  fracture  curve  (fracture  strength 
as  a function  of  porosity),  bulk  moduli  as  a function  of  porosity  and  energy, 
rate  functions  for  pore  collapse,  and  a deviator  stress  function.  These 
functions  cannot  be  treated  Independently.  Normally  one  attempts  an  initial 
construction  of  each  function  and  then  modifies  them  slightly  so  that  they 
do  not  conflict  in  their  representation  of  a porous  material.  These  functions 
are  presented  here  in  an  arbitrary  but  possible  order  that  might  be  followed 
in  constructing  the  functions. 

Thermal  Expansion  Functions 

The  thermal  expansion  effect,  referred  to  in  Eqs.  (18)  and  (19) 
governs  part  of  the  Intermediate  surface  construction.  Usually  <y^,  the 
volumetric  thermal  expansion  coefficient,  can  be  obtained  from  room  temperature 
measurements.  If  possible,  it  is  Important  to  obtain  an  average  value  that 
is  valid  from  room  temperature  to  melting.  Such  a value  aids  in  determining 

the  Grlinelsen  ratio.  If  the  energy  and  density  at  incipient  melt,  E and 

i i 

p , are  available  for  an  initial  density  p , then  Eq.  (20)  provides  the  approxi- 
M o 

mate  result 

K 


If  this  Griineisen  ratio  conflicts  with  that  in  the  solid  equation  of  state, 
adjustments  must  be  made  based  on  the  relative  certainty  of  the  two  ratios. 

Thermal  Strength  Effect 

As  a material  is  heated,  its  strength  is  usually  reduced.  Handbook 
data  such  as  that  shown  in  Figure  16  are  often  available  to  guide  in  construct- 
ing this  function.  The  analytical  function  representing  the  strength  effect 
is  constructed  from  two  parabolas  as  shown  in  Figure  12.  The  five  parameters 
shown  in  the  figure  are  two  abscissas,  an  ordinate  at  the  joint  between  the 
parabolas,  and  the  midpoint  distances  from  straight  lines.  These  values  can 
all  be  easily  selected  from  a strength-energy  "urve. 
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FIGURE  16  VARIATION  OF  STRENGTH  WITH  TEMPERATURE  FOR  1100  ALUMINUM; 
EXAMPLES  OF  THERMAL  STRENGTH  REDUCTION  FUNCTIONS 
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If  a set  of  electron-beam  data,  such  as  that  of  Shea  et  al.  on 
copper,  is  available,  it  should  be  used.  These  data  have  the  advantage 
of  representing  the  heating  rate  and  loading  durations  of  most  interest. 

Bulk  Modulus 

The  bulk  modulus  varies  as  a function  of  both  porosity  and  internal 
energy.  In  the  model  we  have  presumed  that  the  thermal  strength  effect 
also  governs  the  reduction  of  the  modulus.  If  this  is  not  true,  an  additional 
function  should  be  used.  Data  may  be  assembled  in  the  form  shown  in 
Figure  17,  which  also  shows  the  theoretical  variation  of  modulus  with 
porosity  from  Eq.  (11).  The  static  data  are  from  reference  29.  All  the 

data  may  be  plotted  on  a single  curve  by  using  k = K /f(E)  as  the  ordinate 

i i ^ ^ i 

and  p = P (1  + Fp  E/K  ) as  the  abscissa.  From  the  fit  of  the  k ,p 
o so  s i o 

data  to  the  model  curve,  an  appropriate  value  of  K can  be  chosen.  This 

o 

value  of  K may  disagree  with  that  from  ultrasonic  data.  In  case  of 
o 

conflict,  a choice  must  be  made  based  on  the  relative  reliability  of  the 
data  and  on  the  importance  of  the  effects  attributable  to  each  measure- 
ment (attenuation  would  depend  on  the  unloading  modulus;  precursor  arrival 
would  follow  sonic  velocity). 

Compaction  Curve 

The  compaction  curve  at  zero  internal  energy  is  constructed  from 

a combination  of  static  compaction  data  and  Hugoniot  data  on  porous 

materials.  The  Hugoniot  data  should  be  modified  before  plotting,  as 

shown  in  Figure  18.  Here  Eq.  (22),  the  expression  for  pressure  on  the 

intermediate  surface  has  been  used  to  eliminate  the  effect  of  internal 

energy  in  reducing  the  pressure  and  p^.  The  zero-energy  pressure  and 

o 

density  are  then 

P = P/f(E)  (118) 

Ci 
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(119) 


P = P 


/ rp  E V 


The  pressures  in  Figure  18  were  not  modified  because  f(E)  2:1.0  for  the 
Impacts  up  to  120  kbar,  and  the  higher  pressure  points  were  assumed  to 
lie  on  the  solid  equation  of  state,  not  on  a compaction  surface.  With 
the  data  shifted  according  to  Eqs.  (118)  and  (119),  there  should  be  a 
unique,  zero-energy  compaction  curve  generated.  This  compaction  curve 
can  be  fitted  to  any  of  the  four  models  Included  in  PEST,  With  the  data 
in  pressure-volume  or  pressure-density  form,  the  POREQST  model  is  the 
easiest  to  use  because  it  requires  the  input  of  a selected  set  of  coordinates 
along  the  compaction  curve.  The  Holt,  Carroll-Holt , and  Herrmann  P-c^ 
model  parameters  can  also  be  easily  selected  from  the  plot,  but  there  is 
no  guarantee  that  the  entire  analytical  function  will  fit  the  data. 

Therefore  if  one  of  these  P-q-  formulations  is  chosen,  it  is  advisable 
to  make  a P-cv  plot  of  the  data  and  the  compaction  curve  of  the  model  to 
assure  that  the  fit  is  satisfactory. 

Rate  Effects 

Loading  rate  or  load  duration  has  some  effect  at  all  testing 
speeds.  However,  the  effect  may  not  be  important  in  comparing  data  from 
tests  that  differ  only  by  an  order  of  magnitude  in  loading  rate.  In 
these  cases  it  is  often  possible  to  use  a rate-independent  model  to 
describe  rate  processes.  If  the  data  strongly  indicate  the  presence  of 
rate  effects,  then  these  effects  may  be  fitted  to  one  of  the  rate- 
dependent  models. 

For  rate-dependent  compaction,  each  of  the  three  models  has  only 
one  free  parameter.  That  parameter  can  best  be  selected  by  constructing 
a series  of  loading  curves  as  a function  of  the  parameter,  as  shown  in 
Figure  19,  and  comparing  the  curves  to  the  data.  Alternatively,  it  may 
be  desirable  to  select  the  appropriate  time  constant  or  viscosity  coefficient 
based  on  known  shock-front  thickness,  void  growth  information,  or  other 
auxiliary  data.  The  loading  curve  prescribed  by  this  choice  of  the  time 
parameters  should  be  checked  by  comparing  it  with  the  data. 
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Deviator  Stress 


Even  weak  porous  materials  sustain  some  shear  or  deviator  stress. 
However,  this  stress  Is  not  available  from  dynamic  one-dlmenslonal  planar 
experiments  and  Is  usually  not  obtained  in  static  experiments.  The  measured 
stress  Is  a sum  of  the  pressure  and  deviator  stress  in  the  direction  of 
propagation.  With  no  experimental  constraints  on  the  magnitude  of  the 
deviator  stress,  the  analyst  often  presumes  that  there  Is  none:  this 

choice  has  prevailed  among  users  of  P-o  models.  If  it  is  desirable  to 
postulate  the  presence  of  a deviator  stress,  some  circumstantial  evidence 
may  be  available  to  guide  the  prescription: 

• Strength  of  the  material  In  static  tensile  or 
compressive  measurements. 

• An  initially  large  unloading  modulus  corresponding 
to  K + 4G/3  followed  by  a gradual  reduction  to  the 
expected  bulk  modulus. 

• The  shear  strength  of  the  solid  material. 

• The  difference  between  the  stress  compaction 
surface  resulting  from  Impacts  and  compaction 
surface  from  electron  beam  experiments  (which 
represents  only  pressure) . 

Together  these  data  can  be  used  to  prescribe  a shear  modulus  and  initial 
yield  strength,  plus  a work-hardening  modulus  that  will  allow  the  yield 
strength  to  reach  the  solid  value  at  consolidation. 

Minimum  Data  Required  for  Characterizing  Porous  Materials 

Often  it  is  necessary  to  construct  constitutive  relations  for  a 
material  for  which  there  are  few  data.  A minimum  number  of  experiments 
must  be  planned  to  provide  the  needed  data.  To  discuss  this  problem  we 
have  divided  the  constitutive  relations  into  three  groups:  solid  equation 
of  state,  compaction  and  intermediate  surfaces,  and  fracture  behavior. 

The  determination  of  the  solid  equation  of  state  requires  several 
well-instrumented  Hugonlot  and  attenuation  experiments  plus  some  electron 
beam  or  x-ray  measurements.  At  least  three  Hugonlot  flyer-plate  impact 
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experiments  should  be  planned  at  three  stress  levels  spanning  the  expected 
range  of  Interest.  Each  Impact  should  have  multiple,  embedded  gages.  These 
experiments  yield  three  Hugonlot  points  and  three  unloading  paths,  providing 
the  Hugonlot  function,  bulk  modulus,  and  estimates  of  yield  strength  and 
shear  modulus.  These  Hugonlot  Impacts  should  be  supplemented  with  at  least 
two  attenuation  experiments  to  verify  the  unloading  behavior. 

To  explore  the  high  energy  states  of  the  solid  it  is  necessary  to  conduct 
some  electron  beam  or  x-ray  experiments.  For  electron  beam  experiments  a 
choice  must  be  made  between  voltage  levels  (which  determine  depth  of  deposition 
and  uniformity  of  the  radiant  energy  through  the  material)  and  total  fluence 
levels.  A pressure-energy  relation  is  needed  that  spans  from  low  energies 
to  the  highest  values  of  Interest  in  the  x-ray  simulations.  A low-voltage 
beam  glve»  a range  of  Internal  energies  in  a single  test  and  is  therefore 
well-adapted  for  a rapid  survey  of  material  over  a wide  range  of  internal 
energies.  Two  or  three  tests  covering  the  range  of  energies  of  interest 
are  probably  enough  if  accurate  depth-dose  profiles  and  stress  records 
are  obtained.  Because  of  the  usual  variability  of  electron-beam  data, 
each  experiment  should  be  replicated  three  or  more  times.  The  electron- 
beam  records  are  used  to  compare  with  stress  or  velocity  histories  computed 
in  a wave  propagation  simulation.  In  preparation  for  this  simulation  the 
impact  data  must  have  been  used  to  generate  a complete  equation  of  state. 

Then  the  electron-beam  data  provide  a basis  for  altering  the  Grlineisen 
ratio,  sublimation  energy,  and  other  vapor-state  parameters. 

The  compaction-surface  and  intermediate  surfaces  are  also  obtained 
from  a combination  of  electron-beam  and  Impact  data.  There  is  considerable 
material  variability  and  a large  change  in  unloading  modulus  as  a function 
of  porosity  in  porous  materials.  Therefore,  at  least  five  Hugonlot  impacts 
with  multiple  embedded  gages  should  be  performed  to  obtain  Hugonlot  points 
on  the  compaction  surface  and  unloading  moduli  to  define  the  intermediate 
surface.  For  x-ray  simulations  the  most  important  Information  is  the  initial 
yield  point  on  the  crush  curve;  therefore,  this  region  should  be  emphasized 


92 


in  the  Impact  experiments.  At  least  two  attenuation  experiments  (thin 

flyer  Impacts)  should  be  performed  to  verify  the  unloading  moduli  that 
govern  attenuation. 

A complete  pressure-energy  curve  to  melting  should  be  obtained  from 
electron-beam  or  x-ray  data.  This  curve  is  essentially  that  given  by 
JRPWS  in  Figure  11.  One  good  record  with  a depth-dose  profile  that 
provides  the  required  range  in  energy  would  be  sufficient,  but  two  or 
three  tests  are  usually  required  to  give  sufficient  accuracy  in  deposited 
energy  over  the  entire  range.  The  low-energy  portions  of  the  pressure 
energy  profile  (JRPW  in  Figure  11)  determine  the  pressure-energy  relation 
on  the  intermediate  surface,  while  the  higher  energy  portions  determine 
the  compaction  surface.  The  most  important  information  is  the  peak  pressure 
on  the  pressure-energy  curve  (point  W in  Figure  11)  because  this  pressure 
generally  governs  the  peak  recorded  stress  in  x-ray  experiments.  The 
electron-beam  experiments  should  be  performed  with  the  shortest  deposition 
time  possible.  During  a large  deposition  time,  wave  propagation  reduces 
the  peak  pressures,  smooths  out  the  features  of  the  wave,  and  generally 
causes  a loss  of  detail.  The  depth-dose  profile,  total  fluence,  and  flux 
history  should  be  measured  and  used  in  the  computational  simulation  of 
the  electron  beam  experiments. 

Fracture  in  porous  materials  requires  more  of  the  same  type  of  data 
needed  for  solids  because  fracture  may  begin  at  many  porosities.  For 
solids,  impact  experiments  are  performed  in  which  rarefaction  waves 
interact  and  produce  tension  for  a brief  period.  Since  the  fracture 
process  is  time-and-stress-dependent,  tests  must  be  performed  at  a range 
of  stress  levels  and  stress  durations.  The  stress  and  time  ranges  must 
span  those  of  interest,  and  the  stress  range  should  include  one  point 
below  the  damage  threshold  and  one  just  above  to  ensure  accurate  definition 
of  the  threshold  stress.  The  number  of  fracture  experiments  may  be 
minimized  by  using  tapered-f Iyer  impacts  that  provide  a range  of  tensile 
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stress  durations  In  each  impact.  At  least  three  t'apered-f Iyer  experiments 
with  a range  of  damage  are  required  to  determine  a fracture  model  at  a 


single  Initial  porosity.  This  requirement  Is  valid  for  the  SRI  ductile 

8 30 

and  brittle  fracture  models,  the  Tuler-Butcher  model,  and  any  other 
model  that  recognizes  both  stress-  and  time-dependence  of  fracture. 
Electron-beam  experiments  can  aid  In  determining  the  fracture  parameters 
under  radiation  or  at  high  Internal  energies.  The  data  from  the  electron 
beam  experiments  should  be  viewed  as  an  aid  In  adjusting  the  model  for 
energy  effects  and  not  for  the  Initial  construction  of  the  model.  Fracture, 
even  In  ductile  materials,  is  strongly  dependent  on  stress  level;  hence  a 
test  technique  In  which  stress  can  be  controlled  to  a few  percent  and 
measured  even  more  accurately  Is  necessary  for  model  construction. 
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APPENDIX  A 


USER  INFORMATION  FOR  PEST  SUBROUTINE 

This  appendix  contains  Instructions  for  using  PEST,  the  generalized 
porous  equation-of-state  model,  in  a wave  propagation  calculation.  Flow 
charts,  nomenclature,  and  listing  of  PEST  are  presented.  The  function 
TSQE  utilized  by  PEST  is  described  in  Appendix  B. 

Although  pressure  . id  deviator  stress  are  computed  for  all  porous 
materials,  the  PEST  subroutine  calculates  only  pressure.  Then  an  auxiliary 
subroutine  is  called  to  handle  the  deviator  stress.  In  SRI  PUFF  the  stress 
calculations  are  controlled  in  a subroutine  called  HSTRESS.  This  subroutine 
acts  as  a switch  to  determine  which  solid  equation  of  state,  which  porous 
pressure  model,  and  which  deviator  stress  model  are  used  for  each  material. 
The  flow  chart  for  the  subroutine  is  shown  in  Figure  A-1.  All  of  the 
stress  calculating  subroutines  are  fully  isolated  from  the  COMMON  variables 
for  stress,  energy,  time,  etc.  Thus  these  subroutines  can  be  used  to 
provide  partial  information  about  stresses  (as  they  might  for  the  components 
of  a composite),  or  auxiliary  Information  (for  porous  and  fracturing 
material),  or  they  may  be  called  within  an  iteration  loop  for  repetitive 
stress  calculations  at  a single  time. 

Within  PEST  there  are  CALL'S  to  three  solid  equations  of  state: 

EQST,  ESA,  and  EQSTPF.  The  subroutines  ESA  and  EQSTPF  -re  described 
and  listed  in  Appendices  D and  C of  this  report.  EQST,  containing  the 
standard  Mie-Grlinelsen  and  PUFF  expansion  equations  of  state,  is  in 
Reference  31  and  is  similar  to  that  in  Reference  9. 
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FIGURE  A-1  FLOW  CHART  OF  HSTRESS,  STRESS-SWITCHING  ROUTINE  (Concluded) 


Deviator  Stresa  Models 


The  special  deviator  stress  models  are  described  in  Reference  32 

(models  1,  2,  3,  and  4),  Reference  12  (model  5),  and  References  11  and  33 

(model  6).  The  standard  deviator  stress  option  in  SRI  PUFF  includes  elastic- 

plastic  behavior  with  work  hardening  and  Coulomb  friction.  Except  for  the 

9 

Coulomb  friction,  this  model  is  like  that  given  in  the  PUFF  66  manual. 

In  the  standard  model  the  yield  strength  at  the  end  of  a time  step  is 
given  by 


Y = Y - Y Ao  + 0P  (plastic) 

c ADD 

(A-1) 

= Y + 0P  (elastic) 


where 

Y is  the  yield  strength  at  the  beginning  of  the  time  step 
^ADD  work-hardening  modulus  in  the  computationally  convenient 

form  of  Sy/9o 
P pressure 

0 Coulomb  friction  factor. 

The  value  of  3 is  derived  by  examining  the  usual  forms  of  the  Coulomb 
law: 

'y  = c + tan  cp  (A-2) 


a/T  = k + 3 a P (A-3) 

2 c 

where 

is  the  shear  stress  at  yield 
c is  the  cohesion 

is  the  normal  stress  on  the  yielding  surface 
cp  is  the  angle  of  internal  friction 

Jg  is  the  second  invariant  of  the  deviator  stress  tensor 

k,  a are  constants, 
c 
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Equation  (A-2)  is  the  usual  form  employed  In  soil  mechanics,  while  Eq.  (A-3) 

34 

is  that  proposed  by  Drucker  and  Prager  as  a three-dimensional  form  of  (A-2) . 

In  our  calculations  we  took  the  three-dimensional  form  of  Drucker  and 
Prager  and  related  the  standard  material  constants  c and  9 to  k and  a 

c 


y 3 c N 

k - ^ 

1 + N /2 

«P 


3 a 

c 


N - 1 

JS. 

1 + N /2 
P 


(A-4) 


(A-5) 


where  = tan  (tr/4  + cp/2).  From  these  relations  the  corresponding 

values  of  Y (initial  yield)  and  3 can  be  found 
o 


V _ 

o ■ 1 + N /2 

o N - 1 
a 3 _cp 

■ 2 1 + N /2 

9 


(A-6) 


(A-7) 


At  the  end  of  a time  step  during  PUFF  calculations  the  yield  value 
Y is  increased  by  Y Ap 

ADD  if  yielding  occurred  but  the  pressure  factor  in 

Eq,  (A-1)  is  rot  added  on.  As  in  other  yielding  models,  the  deviator 

stress  is  limited  to  2Y  /3  at  each  time. 

c 

Any  of  the  above  deviator  models  (except  6)  can  now  be  used  in 
conjunction  with  PEST.  An  appropriate  means  for  varying  the  elastic 
moduli  and  relating  the  one -dimensional  strain  to  the  plastic-strain 
in  the  solid  for  model  6 have  not  been  found.  Thus  model  6 should  not 
be  used  with  PEST. 
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Calling  Procedure 


PEST  is  called  at  two  points  In  a wave  propagation  code.  The  first 

CALL  occurs  In  the  initializing  subroutine  (GENRAT  In  PUFF)  at  the  place 

where  material  properties  are  Inserted.  At  this  CALL,  the  original 

solid  density  (p  ) and  the  Hugonlot  parameters  (C,  D,  S,  F = G)  must 
Os 

be  available  in  COMMON).  Also  the  initial  porous  density  (p^  b RHO(M)) 
must  be  available  and  is  read  In  before  the  CALL  statement.  Additional 
material  data  for  each  model  used  are  read  in  directly  by  PEST  during 
the  initializing  CALL:  they  are  not  available  to  the  rest  of  the  program. 

All  other  input  and  output  variables  are  inserted  through  the  CALL 
statement.  The  CALL  statement  used  in  GENRAT  is 

CALL  PEST(LS,  IN,A1,A2,A3,A4,A5,M,  EXMAT(M)  ,RHO(M)  ,A6,  RHOS(M)  , A7,A8,  A9, 

AlO,  A11,A12,A13,C(M),D(M),S(M).G(M).A14,Y0(L)  , A15, A16,CZQ(M)  ,CWQ(M), 
where  the  first  parameter  (LS)  indicates  initialization  when  set  equal 
to  zero.  After  initialization  for  the  first  porous  material,  LS  is 
set  to  1 in  PEST.  The  second  parameter  (IN)  is  the  file  containing  the 
input  data.  The  A's  represent  variables  that  are  not  used  during  this 
CALL.  The  parcuneter  M is  the  material  number.  EXMAT(M)  is  sound  speed, 
anti  CZQ(M)  and  CWQ(M)  are  quadratic  and  linear  viscosity  coefficients. 

These  three  quantities  (viscosity  coefficients  for  POREQST  model  only) 
are  determined  during  initialization  in  PEST  and  returned  to  GENRAT. 

During  this  CALL,  the  subroutine  reads  cards  required  for  each  of  the 
equatlon-of-state  models  employed  and  initializes  its  internal  array 
variables.  The  input  information  is  described  in  the  following  section. 
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The  second  and  all  subsequent  CALLS  to  PEST  are  made  to  obtain  the 
pressure  in  a wave  propagation  calculation.  In  SRI  PUFF  the  follo<vlng 
CALL  statement  is  in  the  subroutine  HSTRESS: 

CALL  PEST(2,5,NPR(M),H(J,l),J,T(J),DT,M,CS(J),DH,DOIi),RHOS(M),RHOI(J),  P(  J)  , 

PSTl(J)  ,AST1(J)  ,EH,  EOLD,F,C(M),D(M),S(M),G(M),MUM,YADDM,RW(J), 

ENV(J),CZJ,CWJ) 

The  value  of  the  first  parameter  given  (LS  = 2)  signifies  that  press 
is  to  be  computed.  The  indicators  Nra(M)  and  H(J,1)  specify  which  solid 
equation-of-state  subroutine  is  to  be  used  and  the  state  of  stress  in 
the  material  (compression,  tension,  or  recompression).  The  J,DT,CS(J), 

DH,  and  DOLD,P(J),EH  and  EOIJ),F,MUM,RW(J) , and  ENV(J)  are  the  cell  number, 
time  step,  cell  sound  speed,  present  and  previous  densities,  cell  pressure, 
present  and  previous  energies,  thermal  strength  reduction  factor,  shear 
modulus,  relative  void  volume,  and  void  density,  respectively.  The  RHOI(J), 
PSTl(J),  and  ASTl(J)  are  the  previous  time  Intermediate  surface  density, 
rate-independent  pressure  and  rate-independent  distension  ratio. 

Input  Information  for  All  Models 

The  subroutine  PEST  is  in  two  parts:  the  first  handles  reading 

and  initializing,  and  the  second  (beginning  at  location  1000)  handles 
pressure  computations.  During  the  initializing  portion,  a set  of  six 
indicators  is  first  read  in  to  indicate  which  porous  equation  of  state 
models  are  to  be  used  under  the  three  conditions  considered:  compression, 

tension,  and  recompression.  Recompression  is  assumed  to  apply  after 
fragmentation  occurs.  Next,  one  lire  of  data  that  is  common  to  all 
models  is  read  in.  Then  data  are  read  in  for  rate-independent  models 
frr  each  of  the  three  conditions,  and  subsequently  for  the  rate-dependent 
models  for  each  of  the  three  conditions.  Arrays  are  repeated  wherever 
possible. 
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Table  A-1  gives  values  for  each  of  the  six  model  indicators:  KCS, 

KTS,  KRS,  KCD,  KTD,  AND  KRD.  Non-zero  values  of  the  indicators  refer 
to  the  models  as  shown  in  Table  A-1.  Tension  and  recompression  model 
indicators  are  set  to  zero  when  it  is  desired  to  utilize  the  compression 
model  data  again.  The  arrays  are  then  repeated  and  reinitialized  with 


TABLE  A-1  DEFINITION  OF  INDICATORS  FOR  PEST  MODEL  OPTIONS 


Indicator  Value  Model 


Rate-independent  compression 
KCS 

or 

KRS 

1 

2 

3 

4 

5 

PORDQST 

Holt 

Carroll-Holt 
Herrmann  P-alpha 
Hendron* 

Rate-independent  tension 

1 

Constant  strength 

2 

Fracture  mechanics’*' 

KTS 

3 

Carroll-Holt 

Compression  with  rate  effects 

1 

No  rate  dependence 

2 

Linear  viscous  void 

3 

Holt 

KCD  or  KRD 

4 

Butcher  P-alpha-tau 

Tension  with  rate  effects 

1 

No  rate  dependence 

2 

NAG  ductile  fracture 

KTD 

3 

NAG  brittle  fracture* 

■"  Not  yet  Implemented. 
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appropriate  changes  in  sign.  When  no  rate  dependence  is  desired,  it  is 
permissible  to  specify  all  zeros  for  the  dynamic  indicators.  A sample 
of  these  indicators  is  shown  in  Figure  A-1.  The  format  used  is  A10,I6, 
12,12.  The  data  for  each  model  are  provided  in  the  order  of  the 
indicators.  These  data  used  the  formats  (AlO,  110)  ,4(A10,  E10.3) , or 
(A10,7E10.3) . The  sample  data  are  appropriate  for  porous  tungsten.  The 
meaning  of  each  parameter  in  the  data  can  be  found  in  the  nomenclature 
list  below. 

In  many  cases,  there  are  optional  ways  to  insert  the  data.  r_v  the 

data  common  to  all  models,  AK,  the  initial  modulus,  may  be  inserted  as 

-G^,  the  shear  modulus  of  the  solid.  In  this  case  PEST  computes  AK 

from  Eq.  (11).  If  the  AK  value  provided  is  larger  than  K p/o  , AK 

s so 

is  reset  to  K o/P  . 

s so 

In  the  PORBQST  model  the  fifth  density  in  the  RHOP  array  is  the 
consolidation  density.  If  this  value  is  omitted,  PEST  computes  it  by 
finding  the  density  appropriate  to  the  P2  value  in  the  last  density 
region.  If  desired,  an  array  of  quadratic  and  linear  artificial  viscosity 
coefficients  can  be  inserted  following  the  RHOP  array.  If  these  arrays 
are  omitted,  COSQ  is  set  to  4,  and  Cl  is  0.15.  The  fifth  members  of 
each  of  these  arrays  are  returned  to  GENRAT  and  are  used  as  the  viscosity 
coefficients  for  the  solid. 

In  PORHOLT  the  consolidation  density,  RHOP5,  may  be  Inserted  as 
the  consolidation  pressure.  Then  PEST  computes  the  appropriate  consolida- 
tion density  from  this  pressure. 

Input  for  the  Carroll-Holt  model  may  take  several  forms.  If  Y 

CH 

and  c are  used  and  YCH  is  named  as  shown  in  Figure  A-2,  these  values 

are  used  directly.  This  value  of  YCH  is  not  a pressure  on  the  compaction 

curve  but  a solid  yield  strength,  which  governs  compaction.  Instead  of 

Y , the  pressure  on  the  compaction  curve  at  the  initial  density,  PY,  can 
CH 
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SAMPLE  MODEL  INDICATOR  DATA  FOR  POREQST(C)  AND  CARROLL- HOLT (T  AND  R)  RATE-1 NIffiPENDENT  MODELS  AND  LINEAR 
VISCOUS  VOID  AND  DUCTILE  FRACTURE  RATE-DEPENDENT  MODELS: 
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I 


be  inserted.  Also  the  consolidation  pressure,  PC,  may  be  provided  instead 
of  f.  The  subroutine  then  computes  the  appropriate  value  of  f . However, 
the  functional  form  of  Eq.  (53)  does  not  permit  a value  of  ( that  is 
appropriate  for  all  values  of  PC/PY.  If  the  requested  value  of  PC  is 
too  small,  it  will  be  adjusted  upward  in  the  program  to  the  minimum 
permitted.  The  three  possible  forms  of  the  data  are  shown  in  Figure  A-1. 
This  data  card  also  contains  TER7,  the  value  of  void  volume  at  which 
separation  occurs  in  tension.  If  TER7  is  read  in  for  the  compression 
model,  it  is  available  if  the  tension  model  is  a repetition  of  the 
compression  model.  TER7  has  no  meaning  in  compression. 

Only  one  parameter,  TERl,  is  used  for  the  linear  viscous  void  model. 
However  all  seven  parameters  for  NAG  ductile  fracture  can  be  inserted 
for  the  linear  viscous  model;  they  are  then  repeated,  with  no  sign  changes, 
for  the  NAG  model. 

The  nomenclature  list  is  followed  by  a flow  chart  for  PEST  in 
Figure  A-2,  A sample  impact  calculation  is  exhibited  in  some  detail  in 
Figures  A-3  through  A-7.  The  stress  histories  in  Figure  A-7  indicate 
the  character  of  the  waves  produced  by  the  impact.  The  subroutine 
listing  follows  the  results  of  the  sample  calculation. 
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NOMENCLATURE  OF  PEST 


Formal  and  External  Parameters 


Def Inltion/Unlts 


NPRM 


H(and  IH) 


J 

TJ 


Initializing  indicator: 

0 Initialize  for  first  porous 
material  (Reset  to  1 in  PEST) 

1 Initialize  for  other  materials 

2 Compute  pressure  for  each 
porous  material 

Indicator  designating  which  solid 
equation  of  state  pressure  model 
to  be  used 

Indicator  telling  state  of  material: 

S Solid 

P Porous  compression 
T Porous  tension 
Q Porous  recompression 
R Recompression  after 
fragmentation 
Z Fragmented 

Coordinate  cell  number 

Spall  parameter;  equals  zero  when 
spallation  occurs. 


DT 

M 

C 

D 

DOLD 

RHOS 


RHOI 


P 

PSTl 


Time  increment,  sec 
Material  number 
Sound  speed,  cm/ sec 

, 3 

Current  cell  density,  g/cm 

, 3 

Previous  cell  density,  g/cm 

, 3 

Solid  material  density,  g/cm 

Previous  value  of  density  at  zero 
pressure  and  energy  on  the  inter- 
mediate surface,  g/cm^ 

2 

Pressure  at  a cell,  dynes/cm 

Previous  value  of  gate-dependent 
pressure,  dynes/cm 


y 


106 


ASTI 

E 

EOLD 

F 

BQSTCM 

BQSTDM 

BQSTSM 

BQSTGM 

MUM 

YADDM 

RW 

ENT 

CZJ 

CWJ 

Input-Related 

AK 

COSQ(MP, I.N) 
C1(MP,I,N) 


Previous  distension  ratio  for  a point  on 
the  rate-independent  pressure  curve 

Current  internal  energy  estimate  for 
a cell,  ergs/g 

Previous  value  of  E,  ergs/g 

Thermal  strength  reduction  factor 

Solid  bulk  modulus  and  first  coefficient 
in  Hugonlot  relation,  dynes/cm^ 

Quadratic  coefficient  in  Hugonlot 
relation,  dynes/cm^ 

Cubic  coefficient  in  Hugonlot  relation, 
dynes/cm2 

Gruneisen  ratio 

, 2 

Current  shear  modulus,  dynes/cm 

, 2 

Work-hardening  modulus,  dynes/cm 
Relative  void  volume 

3 

Void  density,  number/cm 

Coefficient  of  quadratic  artificial 
viscosity 

Coefficient  of  linear  artificial 
viscosity 


Variables 

Porous  Bulk  modulus  defined  at  density 
RHOP(MP,l,l),  dynes/cm^ 

Coefficient  of  quadratic  artificial 
viscosity,  with  I=reglon  number  for 
POREQST  model 

Coefficient  of  linear  artificial 
viscosity,  with  I=region  number  for 
POREQST  model 
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DELP 

DFDRHO 

EPS 

KCD,KUD,KTD 

KGS.KRS.KTS 

MP 

N 

NPM 

NREG 

PC 

PORA , PORB , PORC  ( MP , I , N) 

PY 

PI 

P2 

RHOP(MP,l,l) 

RHOP(MP,I,N) 

RHOP(MP,5,N) 


Maximum  deviation  from  linear  pressure  ^ 
curve  for  given  POREQST  region,  dynes/cm 

Slope  of  rate-independent  porous  pressure 
equation  Just  beyond  elastic  limit, 
dyne-cm/g 

Parameter  introduced  to  give  finite 
consolidation  pressure  for  Carroll- 
Holt  model 

Rate-dependent  compression,  recompression 
and  tension  model  indicators 

Rate-independent  compression,  recompression 
and  tension  model  indicatois 

Porous  material  number 

Array  subscript  variable  = 1,2,3 
corresponding  to  compression,  tension, 
and  recompression 

Porous  material  number  corresponding 
to  material  number  M 

Number  of  porous  regions  in  POREQST 
model 

Consolidation  pressure  for  Herrmann 
P-alpha  model 

Calculated  coefficients  of  porous  rate- 
independent  pressure  or  density  relation 

Pressure  corresponding  to  initial  yield 
point  on  compaction  curve 

Pressure  on  compaction  curve  of  POREQST 
model  at  RH0P(MP,1,1) 

Pressure  on  left-hand  side  of  each_ 

2 

region  for  POREQST  model,  dynes/cm 

Density  used  for  initial  porous  data, 

, 3 

g/cm 

Porous  densities  for  1= region  number 
used  by  POREQST  model,  g/cm 

, 3 

Density  at  consolidation,  g/cm 
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TeR(MP,1,N) 

TER(MP,2,N) 

TER(MP,3,N) 

TER(MP,4,N)  and  TSR(MP,6,N) 

TER(MP,5,N) 

TER(MP,7,N) 

TPH 

YADDP(MP,I,N) 

YCH 

YZERO 

Other  Internal  Variables 
ALFD 

ALFDl 

ALFL 

ALFS 


2 

Growth  constant  = 3/(4),  cm  /dyne/sec 

2 

Growth  threshold,  dynes/cm 

Nucleation  radiuj  parameter,  cm 

Parameters  In  nucleation  function, 
no. /cm  /sec  and  dynes/cm  : 
N=TSR(MP,4,N)*exp((P-TSR(MP,5,N))/ 
TSR(MP,6,N)) 

Nucleation  threshold  for  Ductile 
Fracture  and  static  pressure  for 
Constant  Strength  model,  dynes/cm^ 

Relative  void  volume  at  which 
fragmentation  occurs 

Time  constant  (sec)  associated  with 
Dynamic  Porholt  and  Butcher  P-alpha- 
tau  models 

Increment  of  yield  strength,  for  Isreglon 
number  in  POREQST  model 

Pressure  on  compaction  curve  at  RH0P(MP,1,1) 

in  Carroll-Holt  model,  dynes /cm 

, 2 

Initial  yield  strength,  dynes/cm 


Dynamic  distension  ratio  for  current 
pressure,  between  elastic  and  rate- 
independent  values 

Previous  value  of  dynamic  distension 
ratio 

Distension  ratio  corresponding  to 
current  elastic  pressure  and  density 

Current  distension  ratio  for  a point 
on  the  rate-independent  pressure  curve 
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i^Mi!?SrtWK9*S«‘»=BaS» 


BULK 


Current  value  of  bulk  modulus,  dynes/cm 


CJ 


DREF 


DS 

P 

PEL 

PJ 

PS 

PST 

PTH 

RVV 

RWl 

TF 


Current  sound  speed  calculated  In  solid 
equation  of  stace  subroutines  except 
when  CJ  = 1, 

Density  at  P-V  plane,  computed  by 
removing  effect  of  thermal  expansion^ 
at  constant  pressure,  DREF=TF*D,g/cm 

3 

Solid  material  density,  g/cm 

2 

Previous  value  of  pressure,  dynes/< m 

Pressure  based  on  elastic  relations, 

2 

dynes/cm 

2 

Current  pressure,  dynes/cm 

2 

Solid  pressure,  dynes/cm 

Pressure  based  on  rate-independent 
pressure  model 

2 

Threshold  pressure  for  solid , dynes/cm 

Current  relative  void  volume;  takes  on 
negative  value  to  indicate  fragmentation 

Previous  value  of  relative  void  volume 

Thermal  expansion  factor  used  to  relate 
current  density  on  intermediate  surface 
to  reference  density  at  zero  energy  and 
constant  pressure 
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PEST  INITIALIZES  AND  COMPUTES 
EQUATION-OF-STATE  VARIABLES 
UNDER  COMPRESSION,  TENSION, 
AND  RECOMPRESSION 


THE  INDICATOR  LS  SETS  PATH 
FOR  INITIALIZATION  OR 
COMPUTATION 


INITIALIZE  FOR  EACH  POROUS 
MATERIAL  MP  NUMBER. 


MA-2407-14 


FIGURE  A-3  FLOW  CHART  FOR  PEST  SUBROUTINE 
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PEST  INITIALIZATtON  — RATE-DEPENDENT  MODELS 


If* 

LINEAR  VISCOUS  VOID  «- 
OR  DUCTILE  FRACTURE  — i 

DYNAMIC  PORHOLT  — 

BUTCHER  P-ALPHA-TAU  — 

1 

READ  DATA  AND 
INITIALIZE  FOR 
RATE-DEPENDENT 
COMPRESSIVE 
MODELS. 


N - N ♦ 1 


REPEAT  LINEAR  VISCOUS  VOID 
FOR  DUCTILE  FRACTURE 

READ  BRITTLE  FRACTURE  AND 
FRAGMENTATION 


REPEAT  OR  READ 
DATA  FOR  RATE- 
DEPENDENT 
TENSILE  MODELS. 


[REPEAT  LINEAR  VISCOUS  VOID  | 
REPEAT  DYNAMIC  PORHOLT  ] 
(repeat  BUTCHER  P-ALPHA-TAu| 


REPEAT 

INITIALIZED 

ARRAYS  FOR 

RATE-DEPENDENT 

RECOMPRESSION 

MODELS. 


900  METUNN 


MA-2407-1S 


FIGURE  A-3  FLOW  CHART  FOR  PEST  SUBROUTINE  (Continued) 
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PEST  COMPUTATION  OP  PRESSURE  — COMPRESSION  PATH 


TEST  FOR  FRAGMENTATION 


COMPUTE  CURRENT  ELASTIC  MODULI 
AND  ELASTIC  PRESSURE  PEL 


PEL  > 0 IS  COMPRESSION  PATH; 
PEL  < 0 IS  TENSILE  PATH. 


CHOOSE  BETWEEN  COMPRESSION  (PI 
AND  RECOMPRESSION  (R)  ROUTES. 


CALCULATE  COMPACTION 
CURVE  PRESSURE  AND  CHECK 
FOR  CONSOLIDATION. 
COMPUTE  SOLID  AND  STATIC 
PRESSURES  (PS  AND  PSTI. 


MA-2407-17 


FIGURE  A-3  FLOW  CHART  FOR  PEST  SUBROUTINE  (Continued) 
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L5 


KST  COMPUTATION  — TENSILE  PATH 


CONSTANT  STWENOTM  )—i 
PWACTUWE  MECHANICS  ^ 
CAHWOLL-HOLT 


PJ  - 

H - 

PST 

T 

TENSILE  PATH  IS 
FOR  PEL  < 0 


CALCULATE  STATIC  PRESSURE  AND 
CHECK  FOR  CONSOLIDATION  IN 
CARROLL-HOLT  MODEL. 


GO  TO  DYNAMIC  TENSILE 
PATH  (1600) 


MA-2407-19 


FIGURE  A-3  FLOW  CHART  FOR  PEST  SUBROUTINE  (Continued) 
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PEST  COMPUTATION  — TENSILE  PATH  (ContinuadI 


i 


FIGURE  A-3  FLOW  CHART  FOR  PEST  SUBROUTINE 


END  COMPRESSION  AND 
■^ENSILE  ROU'^INES  BY 
COMPUTING  TOTAL 
ENERGY  E AND  STORING 
PRESSURE  ANO  DENSITY 
CALCUTIONS  FOR  NEXT 
CYCLE. 


SET  RVV 
NEGATIVE  WHEN 
FRAGMENTATION 
OCCURS. 


MA-2407-20 


(Concluded) 


117 


3^3S  e 

1 1 I I i 1 1 t 1 1 i 1 

• 

■ 

> 

0 

■ 

* 

m 

X 

I 1 1 I 1 1 1 I 

3SSXS3X33333; 

[ « 

\ s^ 

F 

• ^ 
a 

to 

^ S 

NN 

S 8 

to 

a 

^^lAtotototoa 
1 innnnaorte 

W V 
OF 

V ^ 

F m 

V to 

9 V 
0 F 

^ to 

i4tn«av<r»a»« 

uiuiOnnnOOOa 

1^  in 


9Sl$9S8lt:t 

e e o 4 (Mto 
i o IB  «n 

is* 

?“"StlS 

• 4 % m 

0 M • « 

1 • u 

ui  ana  */t 


H !£i!2E!i!!!!lii  ! 

a m 
a 

- 8 


■ * « ■ M 

aonea 
* # # ^ s 


Ifaaaa 


an  aaaaaanriam^Aeaa 

«a  F a r a » a ^ r a y s r a » a 

MM  MMMMMMMMMM«MMMM 

m 

a M 

t a IV 

* ^ 

» : 


!!!!l 

n M 
I o 

J 

I n 

» • • • 
#aaa 

» I I 


a a a ■ a 
< w 

i ss 


1 * ? 


" ?’*8<i 

4 4 

i? 

0 ON 

0 00 

a 

1? 

8 

1 

to  to 

f? 

S 0 S 0 e 

4 4 4 4 1 

N 

a 

1 

toto  0 <ON 

0 a t 0 a 

01  II 

880 

0 0 0 a a 1 

.1 

3 33 

0 2 a 

1 

•S 

1 

UI 

• 0 

0 

i III  12 

UI 

o 

e 

.8  . II 

0 M to  • 

8n 

to  Ototo 

• « • « 

aoe  a 

• • o'****^ 
OO  Ctoeoea 

8 N 

a o N a a aw 

• • 
e a 

U • • • * • 

0 N a e a « to 

aoe  I •'P 

I ^ 9 p 

I a ♦ 

• w ■ 

a p «w  a o 

a a a a i « a a 

I M a ^ a a a 


u a • a a 

a ala  w a 

i I 

i 5 2 ^ ^ 

7 o*s  aaaa  • 

ifc  a N u>  2 

a ^ ^ a 

UI  ^ 

• ^ ^ a a a 

• a to  a « I 

: 

5aMf  tn  wa 

to  oaaMPuaa 

isuia#  aatoS 
ton*  o a to 

UI  ••  a a a a « 


^ H w ■ a a S.S^  ^ 

Sa^a  a 

N to  O am  to  a 

^ au  • u 

a to  to  «n 

aCo  a 

toto  I ■ ■ ■ 1 I • 

UI  u S a 

totoPtototo  Cto^ 

SwftSaaaSSto 


82  «8 
« « to  ♦ 

88  aa 

U i 


a a • I 

?n  SJ 

a to  MS 


s88to8 

-S8  t 


8 

a a o 9 Q n>  a 

aa  55o  a a 

• ••  aaa  uia  •• 

aNa  tototo  toO  ao 

383  8SS  iil 

I « I 4 « « I a 

m m i:- 

N a a aaa  a 

• ••  •••o*<9  ** 

««ua  to  IS  to  a to  to  a oo 

I I 4 a « 

toam  UI  uiui  aa 

?J?  3 .3  5? 

333  33 

aaa  aaato  uito  aa 
aoa  «3toto  ato  aa 

• ••  uiuiui3aa«  •• 
anito  a o o to  UI  a to  ato 

to  • to 

too^tototoatotototoaaa 

oaaoaaaaa i aaaa 

l•l4♦•4S4■al«♦ 

||||88|8|^8||| 

"lua  "aiSa^iC^^aa  * 


? If  ? 

I -I  I 

aaa  a 
•« 

toO  Utoooaa 

aS  Sa 

♦ 4 4 1 

88  88 
«_gl 

oo  JVaototo 

I • I 

8S  282  S 

4 4 4 14  4 

88  *888  8 
e a a a a to  a 
aa  eaoto  a 

••  X***** 


o • A • 

to  1 to 

'%  8 III  K.  8 

aa  to  oooaa  a 

to*  N •uaauiSto  »• 

Wto  to'^totototoO  Oto 

S2  “2  3 S8  253  's 

44to4  4 44  4to«U  I 

toto  totototo  tototo  to 

Soaloao  Oto*  5 

lu  toFOo  aaa  a 

aa  oaoa  aa  a 

to#  to  to  anSoSaStoS  o-« 

It  41004  I 
NO  to  to**toUINa 

to«  a Stoto<i*a 

4»  4 aaoa44 

Nto  o ^ ■•••  272  88 

toa  •■  a oooN«^toto  toO 

?a  oo  a ato^  oa  ma 

• a9  • tototovomai  •• 
«to  MS  to  OOOtoOSOto  toto 


a IB 

-3 

- s« 

5 s s s 

u a o 


2S22S 

23^33 

£28383 


c*  a9  • tototoBomai 
Kto  Mi  to  005^0SO>  toto 

to  O • to 

NtoONtotooaototoOoatoaoa 
toO  to  Ototototoiato  inOtoO 

44to4  44444S4to|BI  44 

28to8  8888888^08888 

2a  to  a S to NO c 88 a so a 1 

^*  • •••»*0*^to0*^* 


£ s i'li 

UI  • to  to  to  • i 

51  to  ■■  ■•■■a  «a 

Bto«  OBtoOStoa 

>to_*  aoOBNNNNto  (to  aa 
totogtoBuiBto  oooosziaxato 

Otol^^tsSuOtoNtoStfCutoaF 


« a a a a 

S UI  a HI  UI 

n u u a u 


NtoONtotooaetotooaatoaoa 
toO  to  Ototototototo  itoOtoO 

44to4  44444S4|^^BI  44 


UI  ■ ■ 

toll  • 
to  Oto 

||toi^uiS^ 


sIlIX 

33333 


118 


FIGURE  A-4  INPUT  DECK  FOR  TEST  CASE:  DISTENDED  TUNGSTEN  IMPACT 
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FIGURE  A-6  STRESSES,  LOCATIONS.  AND  DENSITIES  AT  EACH  FINITE  DIFFERENCE 
CELL  AFTER  120  TIME  INCREMENTS 
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FIGURE  A-7  PORTION  OF  THE  HISTORICAL  LISTING  OF  STRESS  AT  THE  IMPACT  INTERFACE  (S12) 
AND  AT  CELLS  34.  37.  41.  45.  50.  AND  56  AFTER  REZONING 


60  (CELL 


FIGURE  A-8  COMPUTED  STRESS  HISTORIES  AT  SEVERAL  LOCATIONS  IN  THE  DISTENDED  TUNGSTEN  OF  THE  TEST  CASE 
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SUBROUTINE  PEST  (Continued) 
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HEAP (TNiPlP) AT  , (PMOP(MP,I,N) ,Ial ;Sj 
aHlTFIPiPIOAI,  |PM0P(MP,I,N),IaI,5) 
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SUBROUTINE  PEST  (Continued) 


MNirr  (»t««>0)  TPOtiNijoz 
DO  4«8  lalfS 
COSO(MP«TtN)  ■ 4.0 
4*8  Cl(MPtl«Ml  ■ r.l4 
SOI  RC*r(lN<«IS)41«A? 

8ACtr4P4CP  IN 

IF  (41  .EO.  IhC  .ANP.  (A?  .EC) 
IP  (A|  .PU.  IHC  .AND.  A?  .EO. 


PEST  131 
PEST  132 
PEST  133 
PEST  134 
PEST  13S 
PEST  13* 

IHO  .OP.  AP  .FO.  IHOM  60  TO  S02  PEsT  137 
IHI)  60  TO  *>03  pest  138 

PEST  139 
PEST  140 
PEST  14| 
PEST  142 
PEST  143 
PEST  144 
PEST  145 
PEST  U6 
PEST  147 
PEST  148 
PEST  149 
PEST  150 
PEST  151 
PEST  152 
PEST  153 
PEST  154 
PEST  155 
PEST  156 
PEST  157 
PEST  158 
PEST  159 
PEST  160 
PEST  I6l 
PEST  162 
PEST  163 
PEST  164 
PEST  165 
PEST  166 
PEsT  167 
PEST  16H 
PEsT  169 
PEST  170 
PEST  171 
PEsT  172 
PEsT  173 
PEST  174 
PEST  175 
CPEST  176 
••  CPEsT  177 
PEST  178 
PEST  179 
PEsT  IHO 
PEST  181 
PEST  182 
PEST  183 
PEST  184 
PEST  185 
PEsT  1H6 
PEsT  187 
PEST  188 
PEST  189 
PEST  190 
PEST  191 
PEST  192 
PEST  193 
PEsT  194 
PEsT  195 
PEST  196 


60  TO  504 

502  PE4f>(lN,elr<ui  • (CnS0(88.l,M)  ,lal,5) 

WRlTF (6t9lPI Al « (rOSH(PPiI.N) .lal.Sl 
dnItf  (6tO60Mnn.TNij(j? 

60  TO  501 

503  HEAnilNtOlr  >41 , (Cl  (PP.IiN) .la] |5) 
i>RlTE(6t9in  *1  .(Cl  (HP.liN)  .lal.S) 

68178(6.960)  IDn.lN.J('P 

504  CIJ  a tPS(((PP.5.1  ) 

C«J  a tl (PP.4.1 ) 

NPaMRF6(>«P) 

PE*r(TN.«?(')AI.Pl 
68lTP(b.92(>)Al.Pl 
4RITF  (6.S6C)  T0('.  IN.JO? 

P0N4(M8.1.N)  a pi  S P0P8(8P.1.N)  a PUPC(8P.ltN)  a r. 
no  SP5  6iOal..<P 

8C40»  TN.920)  Al  .P?.A2,(>ELP.A3,V4D0P(*«P.N0,w) 

SRlTF  (6.9?(<)  Al  .P?.A?.nElP.A3«YA0L'P(6P.NCi.N) 
sRITE (b.06G> inO.IN.JU? 

IF  (Ati  .NF.  AP)  (-0  TO  «('4S 
IP  (6H0P(8H.A'P*1  «N)  .6T,  PHOS)  6(t  TO  5u4£i 

8M0P(Pp.Ap.I  ,Ai)  a P8{iS4(1,*TsoE(o.P2.0..FOSTc8,Fi;sTDP.EOSTSM. 

1 EOSTfaA(,rosTHM,FCiSTF8.PM0S.F(JSTNM,0.n 
WRlTF  (6.932:P80P(MP.r(P*l.M 
sRITF  (6.«6C)  t('C  .(^U1  .JO? 

5045  r'HNOaRH0P(8P«NO*l  .N).8H0P(8P,A>0tN) 

44aP?«PU4.*nFl  P«PhOr  (PP.N(^.A|)/DHH0 
PORA  (8P.A  U.1  ,ai)  aPl*8H()P(A<P.Nn*l  «N)/OPM04AA 
P8ap?.p].4.«riELP4(6H(iP(PP.N0.1  «N)  «PHOP  (PP.NO.N)  ) /()PhO 
PORa  (.•K'.rilil.l  .Al)  s.PhOP(HP.NO«)  iN)aHHOP(MP.NO.N)  /DRH0*88 
PORr  (A*p  |AM.*  1 ,N)  a.A.vOFLP*  (PPnP(Mp*A'0.  1 .N)  aRMOP  IMP.NU.Ai)  /DRHO)  ••I 
YAOOPlwP.NCJ.Ai)  a YAOUP  (PP.NO.A') /DRHO 

505  PlaP? 

YA0DP(HP.NP*1 .N)  ■ p. 

PHOP(Mp.K.N)  a RP0P(8PtA'P.)  «M) 

60  TO  bPP 

510  CONTINOF 

C 

c aa  PFAO  ANo  TNIT1ALI7F  AOH  POMHOLT. 

HEAO{ I6.0?C) Al  .RH0P(MP.5.N) .A?.OPOPMO.A3.PY.A4, YAnnP(8P.l .N) 
WRITF(6.02P) A)  .PHdPlPPiS.N) .A?.OPOHHO.A3,PY.A4.YAnnP(HP.l.N) 
WRlTF  (6.96'’)  TOr. 1*1. JOlS.inO. JOS.  J2.J3.J4 
IF  (PH0P(8P.S,M  ,LT,  U'P.I  60  TO  S12 
P2  a WhOP(Pp.StN) 

RHOPfPP.S.A )aPMOS*n ..TSOF ( 0 .P2.U.  .FOSTCM.EOSTDm.FOSTSM.EOSTGM. 

1 EOSTMM.FOSTFW.PHOS.FOSTNM.r,)  > 
aRlTF (b.93?)PHOP(MP.5.N) 

MRITF (6.S6H) TOD.OOT.JOIS 
512  RMOP(Mp.?.N)aHHOP(MP.) ,l)a(PY/AK(Mp).l.) 

PROP  (A’p.l.N)  aPHOS/  (1  .-PHOSaPY/PMOPlMP.a.N)  /EOSTCM) 
ALFraNhOP(8P,3.N)/PH0P(MP.2.N) 

RbHmOP<PP.3.h)-P«05 

PORA  ( a«p  , 1 .N)  aALF  F*  ( AuFFaRMOP  ( MP.2.R)  /EOSTC8*l)Pl'»M0-R/PM0S) 
filapnPA(PP.  I ,A!)/(RhOP(PP.S.NI-HH()P(RP.2.N)  ) 

P0MP(A*P,1  .Ma(RH0P(8P.6.N)-RH0P(MP»3.N)  )/ 

1 (omOp(mP.5.m)-PmOP(MP,2,N) )#a2.R| 

YA0OP(6P,l .N)  a VAUOP (MP, 1 ,M) / (RrOP (MP.5.N) -PROP (PP.2.N) ) 

HRITF (6.03P) 
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SUBROUTINE  PEST  (Continued) 


If  in  .or.  2)  GO  TU  6«n 

PEST 

197 

no  TO  600 

PEST 

198 

520 

continue 

PEST 

199 

C 

CPE5T 

200 

c •• 

PF«U  «NU  TNITIALI/F  CaHROLL-HOLI . 

• • 

CPEST 

201 

NE*0JlNt62n)»l tVfHfA?,FPS«MPtN) i A3 t TER (MP , 7 iN) 

PEST 

202 

MPlTr(6tR20) AI iYCH«A2,FPS(HP,N) t Alt TEP (MP, 7 tNI 

PEST 

203 

WRITE  (6,060)  Tnn,IN,J03,J<JA,J0S,J2,j3,  J« 

PEST 

20* 

IE  (A1  ,ro,  inH  VCM  ■ ) Go  TO  5?5 

PEST 

205 

PV  a YCH 

PEST 

206 

IE  |AMS)FHS(MP,N) ) ,LT.  1.)  no  To  526 

PtST 

207 

P2  a FMS(MP,M) 

PEST 

208 

PV  a 1 .-RH0P(MP,1  , 1) /BHOS 

PEST 

209 

c • 

py  aNO  pc  known 

• 

CPEST 

210 

RHOP»MW,A,N)aRHOS*(l .♦TS()F(r,P2,0.,EUSfCM,EUSTnM,EO5TSM,E0ST6M, 

PE5T 

211 

1 Co«TriM,FUSTFM,RH05,KfJSTNM,o,) ) 

PEST 

212 

bu  a HbMTN  a (PM()P (Mp,s,N) /RmOS-1  . ) •!  OSTCM/Py 

PEST 

213 

ALEA  a )./(I.-tV) 

PEST 

21* 

0CL»MP,N)  a PV/(F0STCM*AL0G(|,-RH0P(MP,1,1)/RM0S)) 

PEST 

215 

IE  1 VtH  .LT,  0.)  bHMIM  a AHIN1(8B,1,/UEU(MP,N)) 

PEST 

216 

PHMtn  a AMnkI (HR,<lN,n.?A6?7*ALFA«»?»2.B5t7*AtFA-l.0633) 

PEST 

217 

IE  (RM  ,r,T.  BHMIM)  r,0  TO  521 

PEST 

218 

PR  a HhMTN 

PEST 

219 

RH0P(MP,5,N)  a HwOS»(1 .♦RB*Pv/FOSTCM) 

PEST 

220 

FO  a l./RM 

PEST 

221 

wRlTE(t,OP7) 

PEST 

222 

GO  TO  s2l5 

PEST 

223 

521 

EO  a Pyo*MM 

PEST 

22* 

5215 

BO  a ALOR(t»*)/AL''n(PV»F.C) 

PEST 

225 

F2«  F)  • (HW,Fr)*«»M 

PEST 

226 

IF  (AHS(F''-F))  ,I.T,  l,F-o5*El)  GO  TO  52* 

PEST 

227 

m a AL0n(kI)/ALOG(PV*E1  ) 

PEST 

228 

NW  a 0 

PEST 

229 

52? 

NW  a Nk«1 

PEST 

230 

E2  a Fl*F*P(tPH-Pl)*(»l.n6(HV*Fn/(I.-RH*El/(BV«El)  ))) 

PEST 

231 

B2  a AL0fi(F?)/0LOfi(RV*F?) 

PEST 

23? 

• w a N» 

PEST 

233 

IF  (Ab6(P?-bn  .IT.  l.F-5  ,0P.  AW  .6E.  lo.)  GO  TO  52* 

PEST 

23* 

to  a FI  5 Bf  a R)  ♦ El  » F2  f bl  a m2 

PEST 

235 

GO  TO  bP? 

PEST 

236 

5?4 

EPS(mP,N)  a r? 

PEST 

237 

nELlMPiM  a n .-PH0P(MP,5,N) /RhOSI /*LOG(FPS(mP,N) ) 

PEST 

238 

IF  (MM  .lE.  RMMI»|)  Go  TO  5275 

PEST 

239 

GO  TO  b?B 

PEST 

2*0 

C • 

VTM  Af'l.'  FP^  KMOibN 

# 

CPEST 

2*1 

525 

r>FL(wp,M)  a S ,66567*yrM/FlJSTrM 

PEST 

2*2 

IF  (VCm  .LT.  r.»  fP«(mP,M  a AMAXI  (FP5 (MP.N) ,AR5 (OFL (MP,NI 1 ) 

PEST 

2*3 

PV  a -i,.6666A67*yCh*AL0G(l  .-WHOP(Mp,  1 , 1 ) /PHOS*FPS(PP,m) ) 

PEST 

2** 

GO  TO  b?T 

PEST 

2*5 

C • 

PY  aNO  FPa  KNfWN 

• 

CPEST 

?*6 

526 

0EI.(*'P,N»  a .PY/F0STcm/ALOG(1.-RM0P(MP,1,1)/MM05*FPS(MP,NI) 

PFST 

2*7 

IF  (YCM  .LT.  »,)  FP5(KP,N)  a AMAx  1 ( EP5  ( MP.N)  , AH5  ( OEUMPtN)  ) ) 

PEST 

2*8 

527 

HH0P(MF,p.N|  a WmOS*(1 .-OFL (MP,N)*AL0G(EP5 (MP,N) 1 ) 

PEsT 

2*9 

5275 

CALl  Fu5T(''..OH0P(  ''P,5,N)  ,P2,m,1  ,1 

PEST 

250 

C • 

At  L r-H 

• 

CPEST 

251 

5?a 

ALE(mP,N|  ■ ^Ft  (mP,N)»aI.OG(EPS(MP,NI  ) 

PEST 

252 

APC(mM,T'j  a PHOS/MhOP  (MP,5,N) 

PtST 

253 

WRITF  <b.QP5)PY,P‘»,FPS(MP,MI 

PFsT 

?5* 

wwlTF  (e,«60>  Ton.fiMrtjiLTtjoa 

PEST 

255 

•RItf  ((,,R32)pmOP(MP.5,m) 

PFST 

256 

wRlTF  (b,Q6''l  mil, OUT  ,J03,J0A 

PEST 

?S7 

FPS(mP,M)  a ( .♦FP5(MP,t>i) 

PEST 

258 

GO  yn  bP(i 

PEST 

259 

530 

CONTTNoF 

PEST 

260 

C 

CPEST 

2*1 

C •• 

pho  n,HUT  ANn  tntt  foh  hfhkmann  p-alpha. 

• • 

CPEST 

262 
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S«0 

c 

c •• 

sso 

c 

c •• 

*00 


c 

c ••• 

c 


c 

c •• 

*10 


*15 

c 

e •• 


*20 

c 

c •• 


f 0 


c 

c ••• 

c 

c 

c •• 

c 

c •• 

*41 


*42 


SUBROUTINE  PEST  (Continued) 


RE*n< iNtvzoi fPCtAZtPv 

PEST 

2*3 

PRlTF (Ot«20) *I •PCiA2,PV 

PEST 

2*4 

MRlTr(*t**0) tnnfIN«J05tJ06iJQSiJ2*j3«J* 

PEST 

2*5 

POPACoiPfl  IN)  ■ PY  * POHC(PP»l«N»  ■ PC 

PEST 

2** 

00  TO  aOO 

PEST 

2*7 

CONTTNUF 

REST 

2*B 

CPEST 

2*9 

PFAU  AND  TMIT  FUP  HF^ORON. 

• • 

CPEST 

270 

GO  rn  bAn 

PEST 

271 

CONTTNoF 

PEST 

272 

CPEST 

273 

PPAU  and  TNIT  FOR  THS. 

• • 

CPEST 

27* 

on  TO  onn 

PEST 

275 

IF  IN  .or,  2)  GO  TO  A*'* 

PEST 

276 

N • P 

PEST 

277 

J2a«HTe.A«^  < J3BJ4B1H 

PEST 

27* 

CPEST 

279 

oFAu  FOR  oate-inofpfmof'^t  tension  NUUFL« 

• •• 

CPEST 

2*0 

CPEST 

2*1 

IF  (KTsn  ,E0.  ' .and.  KCSM  .EQ.  3»  GO  TO  010 

PEST 

202 

GO  TO  (Al5t6?fit5?0l  KTSP 

PEST 

283 

CPEST 

2N* 

PFPEAT  CAPRdLI  -holt  ARRAY  FOR  Ns2. 

#• 

CPEST 

2*5 

ALE(NP.?t«-A|  F(MP,n  s EPS(MP«2)«EPSIMR,n 

PEST 

28* 

0CL|MR,?t«.0FL(MP.i I f TER(NP«7«2t  >TrR(HP«7tn 

PEST 

2*7 

APC|RPtPl*U/(I««ALE(MPiN)  1 

PFST 

288 

RH0P(HR«««N| bRNOS/APC (MPt2) 

PEST 

2*9 

FRITf (6t432)PMOP(Mp,s«N) 

PEST 

290 

PRlTFIbtOAO)  TOIkoiiT  t J03«  JU4«  J0S«J2 

PEST 

291 

hO  TO  bA« 

PEST 

292 

CONTTNL'E 

PEST 

293 

CPEST 

294 

RFALi  aNO  TMT  for  CONSTANT  STRENGTH. 

#• 

CPEST 

295 

HEAOIIN.OFO) A1 .TFP(HP«*>«N>  tAP.TERIHPtT.N) 

PEST 

29* 

hPlTF(b*«20)#1 .Tfc-RIxp.S.NI tAP«TER(MP*7«N) 

PEST 

297 

bHlTF(b«9M<) TOn.TNt J07«JdHtJ0S«J2 

PEST 

29* 

00  TO  bAO 

PEST 

299 

CONTTNUF 

PEST 

300 

CPEST 

3P1 

PFAt  aMi  TNTT  fop  rK. 

• • 

CPEST 

302 

REAOIIN.OA5I A| ,Rir (NP)  .A2iTFf<(HP,7,N» 

PEST 

303 

FRITF  (btRA5>  A1  ,MC  (HP)  .A?«TFP(MP,7,N) 

PEST 

30A 

bRlTF IbtabO) TPOiTN. JUStJUIO'JUSt J2 

PEST 

305 

GO  TO  bOA 

PEST 

306 

CONTTNUF 

PEST 

307 

IF  IN  .fo.  31  r,0  Tt'  7A( 

PEST 

30* 

MAT 

PEST 

309 

jPAAMHtrOH 

PEST 

310 

CPEST 

311 

PFAu  FOR  RATF-’NPFPFNnENT  RECOHpRESSION  HODFL . 

• •• 

CPEST 

312 

CPEST 

313 

IF  IFRSF  ,GT.  -,u  T(!  AAn 

PEST 

31A 

CPEST 

315 

RFPbAT  array?  ARRaKCS, 

#• 

CPEST 

31* 

GO  TO  |6aT  tbAStOATtAAAl  KCS*« 

PEST 

317 

CPEST 

318 

POREOST. 

• • 

CPEST 

319 

NPP  > T.P*1 

PEST 

320 

DO  AA?  NO  • T .r.PP 

PEST 

321 

POHA IMR.WU.3) aPORA (Mp.MO.l  ) 5 YAP0P|MP.N0t3)AYADPP(MPlN0i 

n 

PEST 

32? 

PORR|RP.NOt3)APORR|MP«nOt1)  S R0RCIMPtNUt3)AP0RC(HP«NUtl) 

PEST 

323 

conttnue 

PEST 

32* 

no  AAA  FOAltS 

PEST 

325 

RHUP|MRfNUt3|ARHOP|NRtNLltI)  % COSOIMR.NUtS) aCOSO |NR«NUt  1 ) 

PEST 

32* 

Cl (MPt NO, 3) AC] IMP .NO, n 

PEST 

327 

IF  If'O  ,FQ,  A)  GO  TP  AAA 

PEST 

32* 
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SUBROUTINE  PEST  (Continued) 


C 

c •• 

*«5 


C 

c •• 


C •• 


**0 

c 

c ••• 

c 

TOO 


TIO 

C 

c •• 


T30 

C 

C •• 


740 

C 

C • 


750 

C 

c ••• 

c 

755 


C 

c •* 


c 

c •• 


CONTfNUF  PEST 

GO  TO  TOO  PEST 

CPES7 

^ORHOlT.  ••  CPEST 

P0H«(M»<t1*3)BP0K4(f'P,1tn  S PUMB(MP,lt3i*PORP(MPil«n  PEsT 

PH0P(MP«5t3>  B Rv<0P(MP«5i1)  « PHnP(MP*?.3>  B PHOP(HPt2«n  PfcSl 

PHUP(Mp«l«3)  B RMOH(|xp*3«n  S TA00P(MP,1*3)  b VtODP (MPt  1 1 1 > PEsT 

60  TO  TOO  PEST 

CPEST 

f*RfiOLL-HOLT  PODEL.  ••  CPEST 

»PCeMPi3)«*Pr  (MP.n  » FPS(*'Pt3)BfPs(HP,i » pest 

r>EL|MP,3)B0ELiMP«n  « RHOP(MPiS«3)BRhOP(MP*5»n  PFST 

GO  TO  TOO  PEST 

HFPPMANK  P-ALPH*  HOPEL.  ••  CPEST 

P0HA<MP«1t3>  B POP«(HPtl<l>  s P0RC(PP*1*3}  b POPC(PPtl»li  PE$T 

PHOPiPPtl «3)  B RHOPCAPtItll  PEST 

60  TO  TOO  PEST 

GO  TO  (*o0.5l0t5?0*630.5*0«SS0»  KPS^  PEST 

CPEST 

PPAU  POM  pate  FEFFCTS  in  COMPPESSIOh,  •••  CPfST 

CPEST 

h B 1 PEST 

J2>*^CUPPt  f J3aj4BtH  PEST 

IP  <KTL'M  .EQ,  n J3b5HTFN'S»  ^ ip  •►mum  ,EU.  0)  JAbsmRECOP  PEsT 

IP  (KCuP  .CE,  ')  GO  TO  7*“P  PEST 

GO  TO  <7A0»7?0.7?Ci74(i|  KCOP  PEsT 

CONTINUE  PEST 

CPEST 


PPAl,  AM)  INIT  EOP  LUFAP  VISCOUS  VOIO<CJ  OP  OUCTUE  FRACTUPP( 
PEAonKtPlOAl  « (TPMnP*I,N)  *Ib1«7) 
vRlTPfbiPKOAl » (TPH(PP,I.N)  «IbI*T» 

IP  (A  .FO.  1 .OR.  IV  .PI).  3)  »PITE(0«9P0)ir)0fIN.JCII«J012»JbR* 

I J9.J3«J* 

IP  (N  .FO.  ?\  VRITEIf.PM’lirrtlN.JOlT.JOlP.JOH.Jg 
IF  (TFMKP«N.N)  .FQ.  t . J TFP  J*1S9*TFR 

I IPP«3.Fi>**T»TPMnP,4.F) 

GO  TO  7Sr 

continue 

RPAU  ANO  IMT  PV)'r«IC  POImOLT.  •• 

RC*OClNt<l?<l)AI  .TPHIMp.h) 

VRlTP  A 1 .TPH(PP.N) 

••PlTMti.aOni  Ton.TNt  JO]3i  JOl*  « JDR.JF.JT.  J4 
GO  TO  7«" 

CONTINUE 

PPAU  and  TNIT  PYNANIC  BUTCmFP  P-AIPHA»TAU,  •• 

NEAOdN.oPDAl  iTPH(NP.fi) 

PRITP«6.P?P)A1  .TPMNP.N) 

OAOPINP.n)b-alFO/AR(PP)*(1  .-»■<  (NP)*AUFU/EOSTcM) 
kPlTF  letQbO)  TOPtlNt  J(.13«JUlP«jOP.J?.J3.  J4 

N B 


PF4U  POP  PATE  FFFECTS  IN  TFNSIOW. 

SO  Tr(7Prt7!»St77ri9tCI  F 
J2»«HTtN« 

IF  (BTuP  .67.  O GO  TO  l750i7?P.760)  pTOM 

IF  IKCuP  .60.  0)  f-0  TO  75(1 

»PPt»T  ARPAVS  KTObRCD. 

IF  (KCUP  .EO.  n GO  TO  75P 

IF  (KCUP  .6T.  ?)  GC  TO  7S6 

PFPtPT  linear  VlffOUS  VOln  FOH  nUCTILE  FN*CTUPF. 
rFR(MP,i.?)BTFN(»P.).l)  f TFB-<PR.?.?»»-TEh(NP.?,l  I 


• • 


•• 


TIPEST 
PEST 
PEST 
PEST 
PfST 
PEST 
PEST 
PEST 
PFST 
PfST 
CPEST 
CPEST 
PEST 
PEST 
PFST 
PEST 
REST 
CPEST 
CPEST 
PEST 
PFST 
PEST 
PEST 
PEST 
CPEST 
CPEST 
CPEST 
PFST 
PEST 
PEST 
PfST 
CPEST 
CPEST 
PfsT 
PEST 
CPEST 
CPEST 
PE  Si 


329 

330 

331 

332 

333 

334 

335 

336 

337 
336 

339 

340 

341 

342 
3a3 
3a4 

345 

346 

347 
34P 

349 

350 

351 

352 

353 

354 
3BS 

356 

357 
35P 
3S9 

350 

351 
35? 

353 

354 

355 

356 

357 
35P 

369 

370 

371 
37? 

373 

374 

375 

376 

377 
37P 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 
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SUBROUTINE  PEST  (Continued) 


TeNfM»t3«2)BTFhO>*f3,n  t TCR(Mf>,*t2)BTERIMP|«tn 

PEST 

399 

TEM<Mp,5,2)B.TrR(MP,9,n  S TE*(f<*t*«2lBTEP(MP,0,n 

PEST 

39* 

7CR(wPt7«?)  ■ TFHIi.iP.7tl)  % TFR(MP.P.2)  b TER(MP*P»1) 

PEST 

397 

80  TO  79" 

PEST 

398  1 

7S* 

IF  (KCbM  .67.  3)  OU  TO  7&f> 

PEST 

399 

C 

CPEST 

*00 

c •• 

PF«U  hPITTLE  FRhCTOPE  «N0  Fn*fiHFN1*TlCM.  •« 

1 c 

PEST 

*01  f 

711 

CONTIF'tE 

PEST 

*02  [ 

7*0 

C0NTT»*UF 

PEST 

*03 

60  TO  7«" 

PEST 

*U*  f 

C 

CPEST 

*1’9  I 

c ••• 

HF*l'  FUR  PaTF  EFFerTS  IK  RECOpRRESSlOK.  ••• 

CPEST 

*0*  1 

770 

J2B9HRtfOM 

PEST 

*07 

IF  (KHuM  .CT.  «>)  AO  TO  800 

PEST 

*08 

C 

CPEST 

*09 

C •• 

PFPt*T  ARRAYS  KKOaFCO  AS  70LL0»S. 

•• 

CPEST 

*10 

IF  <KCu»*  .66.  ")  00  TO  *00 

PEST 

*11  ; 

fiO  TO  (90U.TBil.7AS.79n  KCOF 

PEST 

*12  ! 

c 

CPEST 

*13 

c •• 

RFPbAT  FOe  LIKFAP  VISCOUS  VOID  CORPHESSIO*'  ROOFL. 

•• 

CPEST 

*1*  1 

700 

TER(vPtI«3)BTrP(RP.1.n  t T6R(RP.2.3>bTERImR.?.1) 

PEST 

*19  ! 

TEH(MPt3«3)  ■ TFR(BP.3«n  7 TER(mP.4.3)  b TERIHP.*.)) 

PEST 

*1*  ) 

ieM(BP.««3)  • TEP(BR«9.n  1 TER<mR.*.3)  ■ 7EP(RP.6tl) 

PEST 

*17  i 

TEM(MP.7.3)  ■ TFPtRP.T.n  7 TER(MPtP.3>  ■ TE*(MP.t>.lt 

PEST 

*18 

60  TO  900 

PEST 

*19  j 

C 

CPEST 

*20  ! 

c •• 

PFPfeAT  FOP  DYNAMIC  POHhOI T BOOEL. 

•• 

CPEST 

*21 

70S 

TPH(MP.3|a(Rw|MP,n 

PEST 

*22 

(>0  TO  900 

PEST 

*23  ’ 

c 

CPEST 

*2* 

c •• 

PFPtAT  FOB  RIITChFR  P-ALR«A-TAU  POfEU. 

•• 

CPEST 

*25 

790 

TPM(Mp,3taTPN(BH,ll  ♦ 0*0R(**P»3laDAOR(KP.I) 

PEST 

*?*  1 

60  TO  9"" 

PEST 

*27 

•00 

60  TO  (90'’«7AO«730i74r.»  KHU* 

PEST 

*28 

•00 

return 

PEST 

*29 

910 

F0«M*T<A1".7F|*,Y) 

PEST 

*30  1 

919 

FORmAT(1x.?A1  ) 

PEST 

*31 

920 

FORBAT(*»A|0,rlo,7) ) 

PEST 

*32 

•29 

FORbaTI*  RYaaFI0.3»«  PCaaFl«l,3»«  EPSaaElO,3> 

PEST 

*33 

927 

FOHRAM*  ABSOLUTF  vAl'IF  OF  CONSOLIDATION  PRtSSURF  WAS  CHANGED 

TO 

PEST 

*3* 

1 BP  WlTMlF  OLLORAbLF  CANGE*) 

PEST 

*35 

930 

FUR  .AT (/) 

PEST 

*3f 

932 

format (•  CONSOLlOAtlCN  OENSITYaaElO.3) 

PEST 

*37 

939 

FORMAT(?(Air.Tf «I?.I2) ) 

PEST 

*38 

9*0 

FOR“AT(A)n.n(t,Al0«El0.3) 

PEST 

*39 

9*9 

F0HmaT(A|.E1".3) 

PEsT 

**0 

990 

format**  HUI  R AnO  shear  mOO-JLI  ARF  ChaNSFD  to  *2F1?.3»*  DYN/Cm?*) pest 

*41 

9*0 

F0RmAT(1h..7QY.Sh  INOaA2tSHi  INaI2.A10.A9.*AS) 

PEST 

442 

C 

CPEST 

*43 

C •• 

CPEST 

444 

c 

computation  Of  PRESSURE  DURING  wAVE  PROPAGATION. 

CPEST 

445 

c •• 

>#• 

CPEST 

*49 

c 

CPEST 

447 

1000 

HP  a NkP(A) 

PEST 

448 

IHbm 

PEST 

449 

c 

CPEST 

*50 

c •• 

COMHUTE  BiiLS  and  SHFAR  MOihiLI  APPROPHIATk  TO  CURRENT  E ANO 

0. 

CPEST 

*51 

c 

CPEST 

*52 

TF  a 1 .♦F*f:OSTGM*RMOS/EOSTCH 

PEST 

*53 

DREF  a n*TF 

PEST 

*5* 

hVVl  a ABSIPVV)  7 ALFDI  ■ l./:i.<RVVl)  7 PHOI1  a RHOI 

PEST 

*55 

IF  (OVv  ,ir.".  .ANU.  OREF/RMOS  .LT.  1.-ABSIRVV>)  go  to  2000 

PEST 

*56 

IF  (PHyl  .EO.  0.)  RMOIbDOLU 

PEST 

*57 

IF(FI.6(MP) ,EO.r.  .ANO,  MUM  .NE.  0.)  ELG CMP) ■ ( 1 ,-MUP (MR) *F/RUH) 

PEST 

*58 

1 /M  ..PmORCmp.I  , 1 )/RmOS)  . 

PEST 

*59 

IFCF  .to.  C.»  60  TO  1«00 

PEST 

490 
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SUBROUTINE  PEST  (Continued) 


IF  (H  .FO.  SR  S .OR.  H .20.  SR  M)  GO 

To  IROn 

REST 

461 

4tFaRH09/RHOl 

PEST 

462 

BULK«Cta4TCM»P/ ( Al  F.ELK IMP) • (ALF-1 ) ) 

PEST 

463 

HUMbAMgX) 1..ELG(MP)*ELG(MP)/4LF)  ) 

PEST 

464 

CaSORT  ( (P(ILK*M(<M)  /O) 

PEST 

465 

c 

CPEST 

466 

c ••• 

rOMpUTE  PRESSURE  FROM  ELASTIC  HELATIONS. 

• •• 

CPEST 

467 

PELaRtItK*  (0/RH0I«TF-1  . ) 

PEST 

466 

c 

CPEST 

469 

c *• 

POAmCh  to  tcmsile  oh  compressive  routes. 

• • 

CPEST 

470 

c 

CPEST 

471 

IF  (PEL  ,LT.  >.)  GO  TO  IbOO 

PEST 

472 

c 

CPEST 

473 

c ••• 

roMpRFSSlON  Path. 

• •• 

CPEST 

474 

c 

CPEST 

475 

ACHSaPLS(MHl  * N«1 

PEST 

476 

IF  (H  .Ffj.  Po  n H a SH  0 

PEST 

477 

IF  (H  ,^F.  5P  / .AmO.  H .mE.  SR  H)  so 

TO  1096 

PEST 

478 

H a a)<  H 

PEST 

479 

KCR«  a krS(MO) 

PEST 

480 

IF  (KRS(“R1  .F(J.  *!)  RfHS  a FCSIMP) 

PEST 

4R1 

Mai 

PEST 

462 

1090 

GOTO  (lice. 11?0, 1140. llO(iilHn)  KCRS 

PEST 

4A3 

c 

CPEST 

4R4 

c ••• 

rAl.CUl.ATlOM  OF  COmP.ACTIOM  curve. 

• •• 

CPEST 

465 

c 

CPEST 

*R6 

c •* 

poPtosT  MnnFL, 

• • 

CPEST 

*87 

1100 

MC  a 0 

PEST 

*88 

►ST  a ( . 

PEST 

*89 

IF  (ORtF  .GT,  HHOP(Mp,e,NnOO  TO  1109 

PEST 

*90 

1109 

MC  a NC*1 

PEST 

*91 

IF  (ORtF  .(iT.  RMOP(MP.AlC.N)>  GO  TO  llcS 

PEST 

*92 

F'ST  a E«(POMA(MP,NC«N)»POHB()XPiNC.N)/OHrF»POPC(MP.MC. 

N»/DREP*«?) 

PEST 

*93 

NO  a ***xr  ( 1 ,(«ic»l  1 

PEST 

*9* 

eZJ  a CCC'MMP.NO.N)  T CWJ  a Cl(MP.NO.M) 

PEST 

*95 

VAODH  a VAUPP  (Mp,l.y,M) 

PEsT 

*96 

c 

CPEST 

*97 

c • 

CHftF  FOP  rONPOLlOATION  In  LAST  POROUS  PEgION, 

• 

CPEST 

*98 

1100 

IF  (HMtF  .LT,  HHOS)  Ml  TO  I3j(i 

PEST 

*99 

1109 

GOTO  (lll'',nl?.l  lU)  nrrm 

PEST 

5G0 

1110 

CALL  FgSTIE.n.PS.M.rj.pPOOJ.OPOEj) 

PEsT 

501 

60  TO  11 1H 

PEST 

502 

1112 

CALL  FS»(1  t^.M.CJ.O.F.PS.OPOOJ.OPUEJI 

PEST 

503 

GO  TO  HIM 

PEST 

50* 

1114 

CALL  EUSTPF  M .05) 

PEST 

505 

1110 

IF  (PS  .I.T.  PST)  go  to  1300 

PEST 

506 

PST  a PS 

PEST 

507 

IH  a SP  5 

PEST 

508 

IF  (PS  .iT.  PFL)  go  to  1301 

“EST 

509 

PJ  a P$  4 H a SM  S % PVV  a («. 

PEST 

510 

(>0  TO  19(ir. 

PEST 

511 

C 

CPEST 

512 

c •• 

POPHPl  T MOilFI., 

•• 

CPEST 

513 

1120 

tlREFaAHAKl  (DPFF.PHOP(«P,  1 .(>()  ) 

PEST 

51* 

ALFs  a (PMOP(PP.i.r)«(PnHA(Mp.i.N).POPH(vp. 

I.N)*(0»EF 

-HM0P(MP.2,N)PEST 

515 

1>  )•(PRtF-KlHOP(^'P|2^M)  ) »/OPEF 

PEsT 

516 

ALFSaAMAXi (Al PS.1 .) 

PEST 

917 

05  a AtFS«UHFF 

PEST 

SIB 

GOTO  ni?h.n?H.113c)  NPHM 

PEST 

519 

1126 

CALL  FU5T(0.  .riS.PS.M.CJ.OPOOj.OPnEJ) 

PEsT 

520 

60  TO  1134 

PEST 

521 

1120 

CALL  E5*n •^.^-'iCj.ns.r.tPs.npooj.opoEJ) 

PEST 

522 

GO  T"  113* 

PEST 

523 

1130 

call  EwSTPF  ( 1 .5.p.CJ.OS.'i,.Psi 

PEST 

52* 

1134 

PST  a PS/ALFS*F 

PEST 

525 

YAUOM  a VA0PP(MP.1  .M 

PEST 

526 
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SUBROUTINE  PEST  (Continued) 


I 

I 


GO  TO  11"H 

PEST 

527 

c 

CPEST 

529 

c •• 

C»RhCLL-Mf>l.T  MOt'Fi  , 

• • 

CPEST 

529 

lUO 

fiNEw  ■ 1,1' 

PEST 

530 

IF  (TRLF  ,0T,  RH0P(KP,S,M )G0  to  1143 

PEST 

531 

HNEw  ■ PP  • pOEF/PHOs 

PEST 

532 

IF  (BMtki  ,GT.  ?..l./*Pr(PP«N| > PNFW  ■ l.*0.b4(HP-1  ./«PC(MPtN)) 

PEST 

533 

■ n 

PEST 

53* 

lUl 

hi  ■ HF*PEUMP|Nt««l  0'i(FPMhP,N).HMFwt 

PEST 

535 

HNEw  a «‘INI (HNFVU(M1.RNFh)/(l.«0EL(hP<N)/(EPS(MPiN)>HNEW) ) *0. 

9999PEST 

536 

19999) 

PEST 

537 

Nri  a Nm«) 

PEST 

530 

AH  a Na 

PEST 

539 

IF  |AMS(P'''Ea.nn  .GT.  ),F.>6  .AND.  AH  .LT.  10.)  GO  TO  114] 

PEST 

540 

1U3 

OS  a (IXEF/HNFW 

PEST 

541 

no  TP  (HA'S,)  147, ll4g)  APMM 

PEST 

542 

11«5 

CALI  FG4T(c,,n9»P9,^,rj,npuoj,i)PnEji 

PEST 

543 

GO  to  114H 

PEST 

544 

U*7 

CALL  FSA  (1 ,6,M,CJ,0«,''.  ,PS«npuOJ,OPOFJ) 

PEsT 

545 

GO  TP  IIGG 

PEST 

546 

1U« 

call  eustpf n j.fis,'). fPo 

PEST 

547 

IISS 

PSt  a *-54HNFu*F 

PEST 

548 

GO  TO  ll''h 

PEST 

549 

lUO 

continue 

PEST 

550 

c 

CPEST 

551 

c •• 

HPPkPANN  P.ALPHA. 

• • 

CPEST 

552 

PST  a l'. 

PEST 

553 

OC  a hpO«*(PPPr(MP,l,m*F/EOSTCM«l.)/TF 

PEST 

554 

DC  a hp0S*(l.«TSnElP,P0Mr(HP,),N)4F»F0STfi)40r*F,F0SlrM, 

PEST 

555 

1 EO4Tl'h,FO4TS^,FHSTr,p,Fu9THM,F0STF‘<,Ph0«,EMSlN‘*,F)  ) 

PEST 

556 

IF  (PC  .1  1.  1)1  00  10  1109 

PEST 

557 

DY  a OpOP(PP,1,N)/TF*(1.*POPa(NP,1,N)/AN(MP)) 

PEST 

559 

ALFv  a 1,/(PY*TF/),HOS-POHA(MP,1,N)4F/£09TCM) 

PEST 

559 

DO  a AMir)  IT  ,0V) 

PEST 

560 

UrO  a uY#ALFv/UO 

PEST 

5M 

nco  a DC/no 

PEST 

562 

HI  a )uCn-()Yn)a*?/(Ai  FY  . 1.) 

PEST 

563 

H2  a ntC/«»'l/7. 

PEST 

564 

ALF«  a HP-9UPT (P?*h7.HCU4UCIl-ni ) 

PEST 

565 

DS  a AlF«*OD 

PEST 

566 

GO  TO  (1170,117?, 1174)  NPHM 

PEST 

567 

1170 

CALL  FuGT(E,p<s,P«:,t',CJ,nPl)OJ,nPOEJ) 

PEST 

569 

GO  TP 

PEST 

569 

1172 

CALL  FSA ( 1 ,b,M,Cj,US,r,PS,UPO(tJ,DP0EJ) 

PEST 

570 

GO  TP  inH 

PEST 

571 

117* 

CALI  H,STPF (1  ,S,N,CJ,0S,E,H«) 

PEST 

572 

117« 

IF  IP  ,GF.  OY)  go  to  1179 

PEST 

573 

DYO  a UY4ALFY/I' 

PEST 

574 

DCU  a ur/(i 

PEST 

575 

hi  a (UCn-liYP)  aa?/ (<i(  F Y - 1.) 

PEST 

576 

H2  a DL04M1/7. 

PEST 

577 

ALFb  a hP-SClPT  (HPaM?.l)rOauCn-M1  ) 

PEST 

579 

1179 

PSI  a FA/ALFb 

PEST 

579 

IF  (PEL  ,LT.  PAT)  GO  TO  1300 

PEST 

5H0 

PJ  a PS>T 

PEST 

5H1 

lino 

COnttfuF 

PEST 

5B2 

1300 

PJ  a PtI 

PEST 

593 

IF  (PS1  .LT.  PEL)  PJ  a PST 

PEST 

594 

C 

CPEST 

595 

c • 

rOMPUTF  <FLATl  Vt  VOK'  VOl (HW) 

• 

CPEST 

596 

c 

CPEST 

597 

PTHaTSOF  ( 1 ,P  |ahMOS/n,FI3STG''«anMOSaE,EuSlCP,EUSTDM,F(jSTSM,EOST6M 

f 

PFST 

5B9 

1 EO«TmH,EUSTEM,PHOS,FOSTNM,F ) 

PEST 

599 

IF  (PJ  ,MF,  f.)  PVVaAGAXI ( 1 .-PJ/PTh,0.) 

PEST 

590 

IF  (Pj  .EU.  ".)  F WVaAf'AXI (0. , 1 .-0/PTH) 

PEST 

591 

ALFaal./d.-PVY) 

PEST 

592 

132 


SUBROUTINE  PEST  (Continued) 


IF  (*ST1  .60.  f.)  *STl  ■ *LF€i  PEsT 

IF  (PEL  .01.  PST)  60  TO  1310  FEST 

IF  (IH  .ME.  SR  S)  60  TO  IQOA  REST 

PVV  ■ 0*  S H ■ SR  S S 00  TO  IVOU  P6ST 

C CREST 

C nvNAHTC  PorssuPE.  •••  CREST 

C CREST 

1310  KCHnaKlD(MP)  REST 

IF  (H  .FO.  5D  P .FNP.  KRO(MP)  .ME.  V)  KCRO  ■ KPO(HP)  REST 

IF  (KCRO  .GT.n  PO  To  1320  REST 

C CREST 

C ••  HO  HFTE-nFRENnENCE.  ••  CREsT 

IF  MM  .ru.  CM  S)  H ■ SR  S REST 

60  TO  IRfO  REST 

1320  RElSaTSOP(l«PFL*PHUS/n.EQSTOM»RHus«E.FUSTrM.FOSTnH.bOSTSH.EOST6M.  REST 
1 EOsThM.FuSTFM.PHOS.POSTNM.E)  REST 

IF  (PEL  .RE.  r.»  alfl«PFLS/REI.  REST 

IF  (PEL  .E(J.".)  ALFL«PELS/0  REST 

*LFs('  ■ (Alfc-astd/ot  rest 

ALFi.n  ■ (ALFL  - ALFOn/OT  REST 

60  TO  (iqnO«)3«0«13AO.M40)  KCRO  REST 

C CREST 

c ••  I TMb*fi  ^isrous  v»ir  compaction.  ••  crest 

1340  VVE  ■ 1.>1./A(.FL  REST 

nv  a ovn  a 1 ./0-) ./OoLO  REST 

RLOOPahAKl  (I  .,-nv*EOSTCM*0/AMA)(l (RsT .P) /ALF*p .4 .*TEP (MR* 1 .N) *OTREST 

1 •(P-PSTin  REST 

VOLo  a 1,/Li(il,  n » Wso  ■ (l.-PWVD/nOLO  REST 

NTRv  a 0 REST 

RVVi  a owvi  PEsT 

PTMi  a PTMO  a PST1*AST)  PEST 

R$0  a aMAXI  (P,PSTn/(l.-RVVl ) PEST 

IF  (PS11  .LT.  !<.)  PSOaPTHL«PTHOao.  REsT 

IF  (1.-  PVVl  . l./ASTl  .LT.  f>.  .AND.  PSO  .6T.  PTHO)  00  TO  13401  REST 
MVPO  a -1./(P0LD*EUSTC*')  rest 

OHVP  a 0.  rest 

60  TO  13*(,3  PEST 

13401  RVRn  a ()  ,-RVVl -) ./AsTI ) /OOLO/ (PsO.PTmO)  REST 

r>PVP  a (PVV-VVE)/r'/(RFlS-PTH)-RWPO  REST 

13403  VSTho  a 1./(nniD*ASTl)  PEST 

IF  (PST1  .LF,  (,  .OP.  PSTI  .OT.  P)  PTHLapTHOaPTH  PEsT 

UVSTM  a M ,-ovvi /O-WSTMO  REST 

OWOp  a (wVt/n-MVVl/OOLn)/(PELS-PSO)  REST 

(jPTm  a PTH-PThO  rest 

1341  PELv  a PV/NLOOP  » VM  a VOl.O  * PTN  a DEI  V/l)VO*DT  REST 

•1  a TtP(HP.i .m)*0TN  rest 

C PEOIN  00  I OOP  FOP  CUMCVLLIN6  REST 

no  1347  hl  a i.NlOOP  PEsT 

VM  a Vh.nlLV  S RATIO  a ( WM-1 ./OOLIO /OVO  REST 

PVR  a RVPn*OPVP*PATIO  REST 

VSTm  a V«TM(l*nVSTH*PATTO  REST 

PTHH  a PTMO.npTMaPATiO  PEsT 

C FIRST  ESTTMATF  OF  PRESSURE  IN  SOLID  REST 

OP  a AmAVI  (('..PSO-RThI,  ) REST 

X6  a 1.  » IF  (DP  ,r,E.  (J.)  X6  a EaP(AI#(JR)  REST 

PLO  ■ RTHH  *.  PIlR  a MFLm  a AMAXl  (P.PSTl ) / 1 1 .-PVVU  • (RELS-AMAXI  (P.PEST 
1 R«Tl)/(l.-PVVn )*»AT10  REST 

PSA  a PFLM  * 70  ■ RVVL*VM  REST 

IF  (PTmM  .6T.  REI  H)  go  to  13**)  REST 

PSJ  a (PFLV*VSO-VSTH.PTHHaPWP.PSO*PVOP-RVVL*VHa(xG*n .♦Al/P.P  REST 

1 (-PTmH-RSO.PTHI  ) )-l.) )/(PVP*0V0P*PVVL*VM»Xe*Al/2.)  REST 

NC  a A REST 

1342  NC  a NC*1  REST 

OR  a (AM4Xl(r.,PSJ-PTMH)*AMAXl(0..PS0-RTHL))/2.  REST 

ZO  a HVVl  *VH  « IE  (OP  .GE.  1.)  ZG  a ZO*FXR ( A1 app)  PEST 

DELva  a vSTH-vsn.RVP*(PSJ-PTMH)*UV0Pa(PSJ-RS0)*Z6-PVVL*VH  PEsT 


593 

594 

595 

596 

597 
596 

599 

600 
601 
602 

603 

604 

605 

606 
607 
60S 

609 

610 
611 
612 

613 

614 

615 

616 
617 
616 

619 

620 
621 
622 

623 

624 

625 

626 
627 
626 

629 

630 

631 

632 

633 

634 

635 

636 

637 
636 

639 

640 

641 

642 

643 

644 

645 

646 

647 
646 

649 

650 

651 

652 

653 

654 

655 

656 

657 
656 
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SUBROUTINE  PEST  (Continued) 


C 


C 

13«3 

1344 


134S 

C 

1344 


1347 

C 

1348 


1344 

C 

C •• 

1380 

138? 

1384 

1340 

1344 

1400 


1420 

C •• 

1440 


C 

C ••• 

c •• 

c 

1800 


I.F.MVH  .Oh.  (PSJ  .LfT.  PTHH  .and.  AC 


PSA  ■ H4J 
AC  ■ NC 

IP  («8S(0PLVA.nELVI  .I.T, 

I .07.  1.))  Rp  TP  134b 
IP  <^C  .nP.  \r<)  RO  To  134« 

IP  tnPLV*  ,GT.  OPLV)  Pl.O  a AMAKUPSA.PLO) 

IP  (OPLVA  .LT.  OFl.  VI  PUP  a AmTNI  (P$A«PUP) 

MAKt  P4TIK4TF  OP  PRESSURE  Iw  THE  SOLln 
IP  .FO.  0|  GO  TO  1343 

PSJ  a PS,l*(ltr|  V-PELVA)/(RWP*OVOP*Zfi*Al/2.) 

GO  TP  1344 

TwTtPPOLATll'N  PSTimaTE  OP  PRESSURE  IN  SOLID 
PSJ  a PS«*(DPLV-0ELVA)/(0ELVR.0ELVA)«IP$R*PS4) 
roNTiNuf 

IP  (PSJ  .PT.  PUPl  HSJ  a PUP-1. f 7 
IP  (PSJ  .LI.  PLO)  P4J  a PlO-l.ET 
IP  (KC  ,P0.  1)  GO  iri  I34S 

IP  (AHbinELVA-fjELVl  .GT.  AbS(OELVB-OELVl  ) GO  TO  134? 

PS4  a PSA  < nriVH  a riEI.VA  S GO  TO  134? 
fONClIlSIOM  OP  (.OOP 

PWL  a ?R/VH  f PThL  a PTHh  % P$A  a PSO  a AMAX]  (PTHH.AMIMI 
I <PPLM*PSA1) 

VSO  a VH.7G  « POT  a El^tTa^'Ol.O/VH 
CONTTNUE 

PJ  a ll..hVV|  )«P<A  t PVV  a RVWI.  % 60  TO  IVOO 

POOVl«ION  POR  AhOPT  FOR  ITERATION  FAILURE 
NT«Y  a NTPT*1  T IP  (NTHV  .GF.  5)  GO  TO  1344 
vOLn  a VN-uFi  V « OV  a l./l'-VOLD 

NLOOP  a NAKl  (3.t-2.»*NlMY*OV*EUSTCM*i;/AMA*HPST,P|/ALF*0.B) 

GO  TO  1341 

WRlTPI4»?349)M,P,nVtOElVA,UPl  Vh 
(SO  TO  134A 

POPhOi  T model  - DYNAMIC.  •• 

ALPO  a TPM(MP,N1*ALFL0  *AST1  ♦ALFSO* (DT-TPH (mP|N)1  ♦ ( ALFDI -TPH ( 

I RP.NjtALI  in-ASTl ♦TPH(MP,N)*4LFSU1*EXP(-I>T/TPH(mP,N) ) 

US  a ALFn*0 

GO  TO  (iTRSfnsn.uRs)  nppm 

CALI  F(AST(Etns«PStMtCJ*nPOOJtnPOE.») 

GO  TO  1400 

CALL  FS* ( I tS.M,C.ltDS,f .PStUPnO JfOPOPj) 

(iO  TO  l4fln 

CALI  EIaSTPFM  fjStP.PS) 

PJaAMlNl (PEL.AMAXI (PSTiPS/ALPD)  I 

PSlaTSOE  (ltPjaKMnS/n,F(JSTGM*RMOS4EtF«SlCM,E0ST0f',F.0STSMtE(i5TRM, 

1 EoeTriM.F(JSTF^«RHOS.FOSTNMtF) 

IF  (PJ  .ME.  S.)  ovVaAMAXl (0..1.-PJ/PS1) 

IF  (PJ  ,F0.  r.)  nVvaAMAXl <U.t).-D/PSl> 

CONTINUE 
GO  TO  I9nc 

RUTCMFP  P-ALPhA-TAU  •• 

continue 

HTaTPH(H'PiN)*{ALM.-ALFS|  /nA0P(MP,N)/(PEL-P5T) 

ALFOa( (AI.Fl-ALFDI  ) *RT/DT- ALF s* ALFO] I *FXP (OT/mT ) *ALFS- 1 ALFL-ALFOl I 
I HT/DI 

IP  (ALEO  .LT.  ALAS)  ALFD  a AlFS 
IF  (ALEO  .GT.  Al FLI  ALAO  a Al FL 
GO  TO  13®? 


TFNSllE  Path. 

aTAdr  fracture  ThHpSHOLD  CURVE. 
KTSS  a KTS(MP1 

IPIPTSS  ,E0.  <>)  KTSS  a KCSIPP) 

N a ? 

GO  TO  (l«?Pt1S40tl5«>0)  RTSS 


•• 


PEST  684 
PEST  640 
PEST  661 
PEST  66? 
PEST  663 
PEST  664 
PEST  66S 
PEST  666 
PEST  667 
PEsT  668 
PEST  664 
PEST  670 
PEST  6Tl 
PEsT  67? 
PEST  673 
PEST  674 
PEST  675 
PEST  676 
PEsT  677 
PEST  678 
PEsT  679 
PEsT  680 
PEsT  681 
PEST  68? 
PEST  683 
PEsT  6H4 
PEsT  684 
PEsT  686 
PEST  687 
PEST  688 
PEST  689 
PEST  690 
CPEST  691 
CPEST  69? 
PEsT  693 
PEST  694 
PEST  694 
PEST  696 
PEST  697 
PEST  698 
PEST  699 
PEST  TOO 
PEST  701 
PEST  70? 
PEST  703 
PEST  704 
PEST  706 
PEST  706 
PEST  707 
PEST  700 
CPEST  709 
PEST  710 
PEST  711 
•PEST  71? 
PtST  713 
PEST  7)4 
PEST  714 
PEST  716 
CPEST  717 
CPEST  718 
CPEST  719 
CPEST  T?0 
PEST  7?1 
PEST  7?? 
PEST  7?3 
PkST  7?4 


SUBROUTINE  PEST  (Continued) 


c 

CPEST 

T?B 

c •• 

rONsToNT  ^TBEf-GTH, 

• • 

CPEST 

726 

1820 

PTM  ■ 

PEST 

727 

PST  ■ 0«PTM*n ,/PHOS*FOSTnM*F/EQsTfM)/(l,*PlH/F0STCM) 

PEST 

72* 

60  TO  lonr 

PEST 

729 

C 

CPfST 

730 

C •• 

FP4CTUPF  MECHANICS. 

• • 

CPEST 

731 

18*0 

60  TO  IS?0 

PEST 

732 

C 

CPEST 

733 

c •• 

f»PHO|U-HOLT  TMRE4MOI.0  SThFSS. 

• • 

CPEST 

734 

1800 

PST  ■ HFI. 

PEST 

738 

IF  (OHtF  ,GT.  HHOP(MP,SiN| 1 60  TO  |f00 

PEST 

736 

PNEM  b HP  ■ ORfF/HHOS 

PEST 

737 

KH  s r 

PEST 

736 

1808 

HI  a H»<*nEL(MP.N)BA|  OG(FPS(HP«N).BNEm) 

PEST 

739 

bNEw  a AmIm  (PMFb'*(Hl.HNEM)/(t.*OEL  (HP.N)/UPSIMH.N). 

RNEw) ) lO 

•R999PEST 

740 

109^»Q1 

PEST 

741 

FW  a Nh.1 

PEST 

742 

4H  a Na 

PEST 

743 

IF  MPSIHNEW.RI  ) .CiT.  1.F-0  .4N0.  *0  .LT.  10.)  60  TO 

156S 

PEST 

744 

OS  a OHFF/HNFW 

PEST 

748 

GO  TO  (l«7f  .1«i'»’2.1S741  NPHM 

PEST 

746 

1870 

C4Ll  F«ST(O..OS.P4.H,CJ,nPOnj.OPOEj) 

PEST 

747 

60  TO  isar 

PEST 

74S 

1872 

CALt  ESA  (1  «s«M«cjiii4,.i.  .p^.opuoj.opnej) 

PEST 

749 

60  TO  ISAO 

PEST 

780 

1874 

CAtl  EgSTPF  <1  ,S.»i,CJ.OS.0.»P4) 

PEST 

781 

1880 

PST  a PSaHNFwaF 

PEST 

76? 

IF  (PSl  ,GT.  PS)  GO  TO  IfiPO 

PEsT 

783 

PSI  a H< 

PEST 

764 

!H  a 4h  S 

PEST 

785 

IF  (PEL  .GT.  PS)  60  TO  loPO 

PEST 

786 

PJ  a P$ 

PEST 

767 

h a S « pVV  a r. 

PESI 

78R 

GO  TO  iRno 

PEST 

789 

1000 

PJ  a PtI 

PEST 

760 

IF  (H  ,MF.  SP  S)  H a SR  T 

PIST 

761 

IF  «"FL  ,LT.  PST)  h a SP  T 

PEST 

76? 

IF  (RFC  ,LI,  PST)  PJ  a PST 

PEST 

763 

C 

CHEST 

764 

c •• 

rOHpUTf  RriflllVE  Vlllfi  VOLUMf,  CHW) 

• • 

CPEsr 

768 

c 

CPEST 

766 

PTH.TSWFn .Pj«PMnS/l',FnsT6H*RH0S*E»E0STCH.FUSTDM,F0STSM.E0ST6M, 

PEST 

767 

1 EorThp.Fustfp.rmos.fostnm.f) 

PEST 

768 

IF  <PJ  ,NF.  *,)  PVV  a AHASI (C,,1,-PJ/PTH) 

PEST 

769 

IF  IPJ  ,F<J,  •<,)  RVV8AMAX1(U.«1.«0/PTH) 

PEST 

770 

ALFs  a ),/(]. .HVV) 

PEST 

771 

IF  IMVV  .GT.  TFR(MP.T.N))  GO  TO  ?G00 

PEST 

77? 

IF  (PFU  .Gt.  PST)  GO  TO  IRU" 

PEST 

773 

c 

CPEST 

774 

c •* 

pvnapic  tfnsilf  Pressure. 

• • 

CPEST 

778 

c 

CPEST 

776 

FTIJO  a KTn(MP) 

PEST 

777 

IF  IKTUP  .fu,  '.)  FTPt)  a FrU(PP) 

PEST 

778 

IF  (KTllP  ,(U,  " .ANO,  KCOM  .FO.  0)  KTOU  a 1 

PEST 

779 

GO  TO  (1A1S.)6?'<.16NP)  KTOO 

PEST 

7HU 

c 

CPEST 

781 

c •• 

NO  KATE  DfpFnofnCE. 

• • 

CPEST 

78? 

1*18 

PJ  a PST 

REST 

783 

60  TO  IMS 

PEST 

784 

c 

CPEST 

788 

c •• 

N.  A.  G.  nucTHE  foactuhe  model. 

• • 

CPEST 

7H6 

1020 

OV  a nvo  a 1 ,/p-l ./DOIO 

PEsT 

787 

VVE  a1 .-PEL/TSOF ( ) »PEL«RHnS/O.E0ST6P«RHOS*E.FOSTCM»EOST0H.E0STSM. 

REST 

788 

1 EOSTOM.POSTHM.FOSTFM.PHOS.FOSTnM.E) 

PEST 

789 

IF  (ASTI  .EO,  ".)  ASTI  a aLFS  _ 

PEST 

790 
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SUBROUTINE  PEST  (Continued) 


PCLe  ■ ML/0.«VVF) 

NLOOPaMll  (l.fOV*EOsTCM«l)/«MTNl  (PsT*P)/ALF*0*Ht4.*TFR(MP«ltN)«0T 
1 eiP-PFri)) 

voLn  ■ i./ooin  < v<(o  ■ (i.*i«vvi>/dold 

MPv  ■ P 
PVVl  ■ PVVl 

PTHL  • PTHO  ■ psti«*«;ti 

PSO  ■ «MTNl(P«PSTl)/(l.«PVVn 

IF<P4T1  ,BT,  ".)  PSObPTHL-PThObO. 

IF  n.-  pvvl  . 1./A4TI  .fit,  P..ANO,  P40  ,LT.  PThO»  GO  TO  lf?Pl 

OPVP  ■ fl, 

PWPr  ■ -l,/(nOLO*F«STCM) 

00  TO 

lOfPi  BvPn  ■ <i,-pwvi-i./*sth/polo/(pso-ptho) 

PHTP  ■ <PVT-VVE)/n/(PFLS-PTH»-OVPO 
10203  VSTho  ■ 1 ./(OOLO^ASTn 

nvSTH  B (1 .•Pvv)/n-v$THO 

PVOP  B (VVt/n-l<VVl/DOLn»/<PELS-PSO» 

IF  (Psn  .feO.  i<.  .OR.  PSTl  .LT.  pi  PTHL  a PThO  a PTH 
DPTh  a PTH-PTHO 

1021  P2LV  a PV/NLOOP  * VM  a VOl  P $ PTN  a UFLV/DVO*OT 
A1  B TtP|HP«i .OlaOTH 

C PFfilP  00  loop  FOR  4UHCYCITHU 

00  1032  Hi  a 1 ,N|  OOP 

WH  a VH*OELV  % PATIO  a ( VH.] ,/DOLOI /UVO 
PVP  a HVP(i«OPVP*PATIP 
VSTh  a V«TH0*PVSTH*PATI0 
PTMh  a PTHO*OPTHaNATin 

FIhgT  ESTTHATF  of  PPfSSUPf  IH  SOUP 
a AmIhUo,.PSO-PThL) 

■ 1.  S VN  a n. 
lOP  .OF.  r,l  (?0  TO  16«'2 
a CaP|*1*0PI 
a FAP(OP/TF»<vP.A,N)  I 

PTMh  « PUP  • PFLH  a AMINl«P»PSTl)/(l.-kVVl)*(PELS-AMIHHP, 


1022 


PP 

AO 
IF 

xo 

IN 
PLU 

1 PsTl)/M.-PvVin*PATIO 
20  a PvVl«VM  % 7H  a 0. 
IF  IPThh  .LT,  PFLH)  00  To 


1030 


1023 


102* 


C 

1025 

1020 


PIST  820 

P8J  a <nFLW*VSO-VSTH«pTMM*RVP*PSO*nVUP-RVVL*VH*(AO*(l.*Al/2.P  PEsT  820 

1 l-P lMH.PSO.PTML  I I -1  . I -ter (m®»8»N) •VH*0TN»AN» ( \ .- (PTMH*PS0-PThL» /PEST  830 

2 2./TtP(HP.A,M  I »/(PVP*0VUP-PVTL»VH**G*Al/2..TFP(MP,8tN)*VH*DTN*  PE«T  831 

3 XH/?./TtH(MP,*,N) ) PEsT  83? 

hC  a 0 PEST  833 

NC  a NC*1  PEsT  83* 

OP  a <AHTNn*..PSJ-PTMH)«AHTM  (0..PSO-PTHL))/?.  PEST  835 

70  a PVVl«VM  T 7N  a P.  PEST  836 

IF  »nP  .PE.  ".)  on  To  16?*  PEsT  837 

20  a 2b*FXP(t1*np|  pest  838 

2N  a TtRlHPt8,M#VH*nTN*EXP(r)P/2./TER*Mp,f.»h) ) PEsT  830 

OtLV*  a VSrH.VSO*PVP*(PSJ-PTHH)«r>TnP«(PSJ-PSO)*7G-RVVL*VH*2N  PEsT  8*0 

PS*  a P5J  PEST  8*1 

AC  a ML  PEsT  8*2 

IF  1*HS(OFLVA-OFI  VI  ,I.T.  i.F-«*Vh  .Oh,  (PSJ  .OF,  pTMh  .AND,  AC  PEST  8*3 

1 .PT,  l.n  on  To  163r  PEsT  8** 

IF  INC  .PF,  I It)  GO  To  I6*f  PEST  8*5 

IF  lOELV*  .LT.  OFLV)  PLO  a AmINKPlO.PS*)  PEST  8*6 

IF  (DELV*  .GT,  DFLV)  pup  a AmakI (PsAfPUP)  PEST  8*7 

M»Kfc  ?NU  r*TlMAlE  nr  PRESSURE  IN  THE  SOLIO  PEST  8*8 

IF  (M0li(wC,2)  .FO,  0)  GO  TO  1625  PEST  8*9 

PSJ  a PSJ*(0FLV-nCLVAI/(RVP*nV0P.2G*Al/2.*2N/?,/TER(hPf6iN) I PEST  850 

GO  TO  16P6  PEST  851 

TNTtPPOLATION  ESTIMATE  OF  PRESSURE  IN  SOLID  PEsT  852 

PSJ  a PS**(0ELV-nELV*)/(DFLVR-0ELVA)*«PS8-PSAI  PEST  853 

IF  IPSJ  .LT,  PUP)  PSJ  a PUP-1.E7  PEsT  8S* 

IF  «PSJ  ,GT,  PLO)  PSJ  a PL0-1.E7  PEST  855 

IF  )NC  ,F0.  n 60  TO  1627  _ PEST  856 
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SUBROUTINE  PEST  (Concluded) 


IF  l«8SintLVA.nELV)  .r^T.  tHSCUELVB.OFLVn  OU  TD  1A?3  PEST 

P$H  ■ H«tA  % DELVH  ■ liCLVA  PEST 

CO  TO  1F73  PEST 

fONtLi'SI0»'  OF  LOOP  PEST 

PVVl  ■ (7C*ZN)/VP  « PTHL  ■ PThH  t PSAaPSOBAMiMI  iPTHHtAMAXl  PE$T 


1 «prLniPSA)t  PEST 

WSO  « vH.ZG>7>;  PEST 

FNT  ■ tNT*VOLn/VH*TFM(Mp,*iN)»E*P(|->P/?,/TPP<MP,ft,N)  )*0TN  PEsT 

rONTtMUr  PEST 

► j ■ (1..PVVI  )»paa  pest 

PVV  ■ hVVI  pest 

IF  (PVV  .01.  TFF(«Pi7.F))  GO  10  200P  PfST 

00  l9"fi  PEsT 

rwOvlAH'N  rON  AHOpT  FOP  ITEMATION  FAlLUMt  PEST 

MTHy  ■ f.TPT*!  PEST 

IF  • iThV  .GF.  SI  GO  TO  16*3  PEST 

yOLo  ■ Vh-gEiv  S Pv  ■ l./P-VOUU  PFsT 

MOOP  B m*XH1.,-2.bbI:1RT*IiV*F*)STCMB|*/AMIM  IPST.PI/AI  F*C.H)  PEST 

60  TO  1671  PEST 

W«lTF«OtPT*S)P,P.I)V,nFl  WA.UfLWP  PEST 

GO  TO  I6ir  pest 

hpIITiE  FoaCTmPE  AMfi  FPAGmentaTIO*'.  pest 

GO  TO  iS«l  PEST 

rPEsT 

eOLin  AKD  POPOIJS  BFLT  AGO  SOL  10  BEH*V|OP  ••  CPEST 

CPEST 

GO  TO  llBOStlAin.lHlS)  f"PM*'  PEST 

CALI  FLST(Etn,PS.P.C,|iP|i0J,pP0EJ»  PfsT 

GO  TO  IP**'  PEsT 

CALI  FSA(i*S,y,C«n.F.PS,nPUP.IirtP»Ej)  PIST 

GO  TO  lAxA  PEST 

CALL  FtSTPMi  ,G,M«Cintt»PSI  PEST 

IF  (H  .»r.  se  SI  GO  TO  !«*'•.  PEsT 

IF  «F  .fo.  0,1  GO  m |AS<.  PEsT 

PjBpsi bPfI Bps  PfsT 

W T'‘  !«*''  PFST 

PJ  » PST  B Pn  B *M»*|(f.,PSl  PEST 

IF  (PJ  ,gT.  -.1  GO  TO  lass  PEsT 

*>TM  ■ ISOFII,  PJBHHOS/I't  rOSTGMBpHOSBf.  FOSTCH,  FOSTOHt  EOSTSP*  PEST 
1 EvlsrOH.  fiJSTHM,  FuSTFM,  HhOS,  COSTAiP*  El  PfsT 

1WV«  AaAvIIO.,  I.  - 0/PTH)  PEST 

H B Cp  M PEST 

GO  TO  1«A0  PEST 

HbSo  S S (VWb'’.  pest 

IF  (PFL  .LT.  '.1  GO  TP  ISOO  PFST 

CPEST 

FM)IG(5  HOMTIwr.  ••  CPEST 

CPEST 

E B F*o.G#(P.pj)*(l,/o-l./OOLiil  PEsT 

P B p.)  PEST 

IF  (F  ,GF,  r.l  WHOlB(FOSTrM*F*l)BTF-P*RHOS»<  l.*FLK IMP) ) )/IEQSTCP*F-PEST 
1 P*FLM*<P*:  PEST 

IF  (F  ,F».  o.)  PHOIbPbTF  PEsT 

PHOTbAhThI (Rwni tPMOS)  PEST 

psTi«p«,t  « /.stibalfs  pest 

pETijpn  PEsT 

FHAbMrGTATTOW,  PEST 

PbPsTIbT.IbO.  S PHOIbCBTF  PEST 

HVV  ■ .ARS(PVV)  PEST 

ASTl  B l./(l,*PVVl  PEST 

M B BP  2 PEsT 

PFl(iRt‘  PEsT 

FOHmaTi*  tTEPaTIOp  FAIIOPF.hbbIp.b  F'BBFin,3,B  nvBBf|0,3f*  OFLVAPEsT 
1 b#f1o.T*«  OFI.VPbBFIO.S)  pest 

FNO  pest  pest 
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APPENDIX  B 


INVERSE  SOLUTION  OF  THE  MIE-GRUNEISEN  EQUATION  OF  STATE 

At  several  points  In  the  PEST  subroutine  it  is  necessary  to  find 
solid  densities,  given  the  pressure  and  Internal  energy.  Th  ,•  subroutine 
described  here  for  determining  these  densities  is  called  TSQE.  The 
pressure  used  may  be  either  the  pressure  in  the  solid  or  the  pressure 
in  the  porous  material.  In  either  case  a direct  solution  for  pressure 
is  unobtainable  so  iterations  are  required.  The  following  form  of  the 
Mie-Gruneisen  equation  is  used 


P 

s 


(Cu  + DU  + 


3 

SU  ) 


+ rOsE 


(B-l) 


where  u,  = D /P  - 1.  For  compression  (p  > p ),  the  product  fp 
s so  I s so  ^s 

is  treated  as  a constant  F p and  rU/(l  + u).  For  extension,  F 

o'^so 

is  treated  as  constant,  and  D s s = 0.  If  the  pressure  P in  the 

porous  material  is  known  instead  of  P , the  following  relation  holds; 

s 


Pp  P (U,E) 

so  s 

«=  = P'  (U,E)  (B-2) 

p 1 + u s 

Since  variables  on  the  left  are  all  known,  the  same  kind  of  iteration 
procedure  is  used  to  obtain  ^ here  as  for  £q.  (B-l). 

The  iteration  scheme  used  is  a combination  of  regula  falsi  and 

Newton-Raphson.  A first  estimate  of  g,  is  made  from  a linearization 

of  P (u,E)  or  P'(p,,E). 
s s 


U 


1 


P - F D E 
s o so 


K 

s 


(B-3) 
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Precedini!  page  blank 


or 


M> 


1 


K. 


- r p E 

o so 


(B-4) 


Then  the  right-hand  side  of  Eq.  (B-1)  or  (B-2)  is  evaluated  with 

U « H to  obtain  P or  P'  , The  next  computed  value  of  p,  in  the 
1 si  si 

solution  of  Eq.  (B-1)  is 


U 


i+1 


Pi  + 


+ 


(B-5) 


where  the  second  term  on  the  right  is  the  Newton-Raphson  part  and  the 

third  is  the  regula  falsi  term.  Equation  (B-5)  is  used  to  compute 

successive  iterations  of  n,  until  the  difference  between  p,  . and 

i+1 

M.  is  sufficiently  small, 
i 

Four  paths  are  shown  in  the  listing  of  TSQE,  corresponding  to 

whether  solid  or  porous  pressure  is  known  and  whetheT*  density  is  greater 

or  less  than  o • The  nomenclature  is  given  below,  followed  by  the 
so 

listing  of  the  subroutine. 


Nomenclature 
IP  Indicator 

0 Solution  for  p with  the  solid  pressure  known 

1 Solution  with  the  porous  pressure  known 

, . 2 

PP  Input  pressure,  P or  Pp  /p,  dyne/cm 

S so  r 

2 

GRE  rp  E,  an  input  quantity,  dyne/cm 

r go 

, 2 

C,D,S  Coefficients  of  the  Hugoniot  expansion,  dyne/cm 

G Grllnelsen  ratio 

EMU  p = p /p  - 1 

s so 
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FUNCTION  TS<»: 


TUNrriUN  TSUF(IP,PPtOHEtCiUiS«GtN*FStHUS.€^*iF) 

TSOE 

2 

c 

CTSOE 

3 

CALCI'I  ATre  MU  r>M  PTH  FHOH  KNOWN  PR|rSSU»lf  ANP  fOK  RELATION. 

e#C 

: TSOE 

4 

c 

TP  ■ n.  I»>VTR^K  EOK.  IP  ■ t • INVERSE  FOS  FOR  PTH  ■ ALFA*PST 

• 

CTSOE 

5 

c 

CTSOE 

6 

NC  ■ n ' P«*  ■ FHU?  ■ U.  * G2  ■ G/?, 

TSOE 

7 

Aal  >« 

TSOE 

8 

IF  (LF«;VAH(AT  ,NF,0)  IX>iaO 

TSOE 

9 

INO  a 1P*I 

TSOE 

10 

IF  (PP  ,l.E.  r.RFI  IM'  a IHM*? 

TSOE 

11 

FHU1  a (pP-r,os)/f 

TSOF 

12 

• 

nC  a 

TSOE 

13 

GO  Tf>  IWI' 

TSOE 

14 

c 

path  foh  roi-tPOFssinM  . SfH  in  prfSSUhl  known. 

• • 

CTSOE 

15 

10 

WHO  a l.atHUI 

TSOE 

IF> 

HH  a FHOK'irtFMIIIwtn^rsUlwSn 

TSOE 

17 

HI  a GHF*PH#j 1 .-r?*FMUI/»MUI 

TSOF. 

18 

FHU»  a TKUT  a F H|i  1 • IPH-P 1) • ( fl .5/ IPHaoP/WMtl**?* (f ♦FHUl • (2.*D»FMIH •3TSOE 

19 

1 . *«)  ) a ( T ,-69#kmih  /WHUI  ) •O.Aa  (FHttt-FH'Cn  / lHl»Pfl)  > 

TSOE 

20 

00  TO  3f 

TSOE 

?1 

c 

PATn  FDH  r»PAHKIOf4  . KOLlf  PRESKUHF  KNOWN. 

• • 

CtSOE 

22 

20 

WHUat .*FMU1 

TSOE 

?3 

eiaPOSaw''() 

TSOF. 

24 

$Oa«riM|  (WMii) 

TSOF 

?5 

<2«h* (o-H)aSo 

TSOE 

26 

SearxPJk  HaFHin 

TSOF 

27 

S3aF-FS*M.-«4) 

TSOF 

78 

Ple*««S?asJ 

TSOF 

29 

|iHIMiaHOK*<?ae3*«  1 /?,•  (G-H)  /c  )*S3*«l*K?*rseS4/WM|iaa3a  ( ) ,-FMIJl ) 

TSOf 

30 

FHUaaF  HM  * (PP-Hl  t /OHOmO 

TSOE 

31 

FHUPaAHAitT  t«1  ,♦!  . F-Pa»'C ♦ AH  1 HI  (fHu?,-|  .E»PaNCt  ) 

TSOE 

32 

M)  TO  jr 

TSOF. 

33 

c 

path  for  rOMRHFG*5IOM  - POOIII*  PPFS^UPF  KNOWN, 

«• 

CTSOE 

34 

IS 

WHO  a i,«F'nn 

TSOF 

35 

FTA  a 1 .-O^arMIU/WfiC 

TSOF 

.36 

HM  a FHln«(r*f  MUI*(f'*FolJl»Sn 

TSOF 

37 

PI  8 IHHaFTA«fiHF.)/wMl.t 

TSOE 

38 

FHU?  a F*  IU«  (PP-Pl  )•(!',•)/((?  TA*(C*FMiU*l?.aiuFHU1*3*5l  )-Pl-PH»G2/ 

TSOF 

3«* 

1 WMiiaa?t/MHii)  ♦n,S*(FNi'l-FHi'n/(Pl-Pii)  » 

TSOF 

40 

00  TO  30 

TSOF. 

41 

r 

P)Tm  FOh  FXPAfSION  . pOHt'i)*;  PHF  KSUHfc 

• • 

CTSOE 

42 

2S 

WHU  m 

TSOF 

43 

sgaepMT 

TSOF 

44 

«2ap* (G-H)*SO 

TSOF. 

45 

K48FXP(FNatLMill  /W«  U**?) 

TSOE 

46 

<3aF.Cb*l 1 ••C4) 

TSOE 

47 

H|aenSw<?aK? 

TSOE 

4H 

IiPOMlaht'K/?.*  •S3/Ka*PU««K?»FS4S4*  1 1 ,-f  HH1  > /wM|iaa3 

TSOE 

4V 

FHUPaFHin  ♦ (po-p  1 ) /i)Po.‘ii 

TSOE 

S(l 

FHU?aAF.A»1  (-1  .♦  t .F-P4MC  , A’Uf;|  (FMli2,-t  .F»R*N(.>  ) 

TSOF 

51 

30 

C0NT»NUF 

TSOF 

«.? 

IF  (m:  ,oT.  in  PWINT  3?. IPiPPfGPE.Pj ftMUP.tvU' .FMUO.NCi lAA 

TSOE 

S3 

3? 

Ft)H‘MT(*  IPaaJT.*  PP , i.PE ,P  1 a«3t' 1 0 . 3»*  F HllPiF PUt  .F MiiOaa jt 1 2,!»,* 

NC 

.TSOF 

S4 

1 Ixxa4?t3) 

TSOF 

55 

IF  or  ,Fi>.  1?)  rxAaixr»i 

TSOF 

56 

IF  rr»*  ,0T.  ?;•)  Slop 

TSOE 

57 

IF  IPP  .«F.  ",  ,rM).  APS(FP"?_fhuI|  .M,  1 .t -4a#MAX  1 ( AHS  (t  PUD 

f 1 • 

ETSOt 

C8 

1»3)»  f-ll  Tf  Ts 

TSOF 

59 

IF  tPP  ,PO.  ",  ,AIU.  Aps  (f  >HtH  .M.  I,F-3*ahax1  (AMStFHUll 

• 1 • 

FTSOE 

60 

1-3)1  GU  TC  7c 

TSOE 

61 

TSOPat  M'"* 

ISOE 

6? 

6S 

IF  (IP  ,MJ.  n IS(JfcaPTPapP*(  1 .♦EMU?) 

TSOE 

63 

IFIPP  ,Fo,  A,)  Trf)Fapr,s*(  1 .♦FMi)?( 

TSOF 

64 

TO 

RETIIRM 

TSOE 

65 

78 

Conttnop 

TSOE 

66 

IF  (mC  ,pU.  1?)  f-0  T(>  OS 

TSOF 

67 

IF  (AHS  IPP-HP)  AHS(PI-PP))  OO  Tl  HP 

150E 

68 

PO  a PI  F FHiir  a FMi) 

TSOE 

69 

• 0 

IF  (PP  ,oT.  GPF)  Pl'UlaFHII? 

TSOE 

70 

IF  (PP  .IF.  OOF)  FH(l)a".b*(FMI|  ♦EMU?) 

TSOE 

Tl 

NO  TO  t 

TSOE 

7? 

FNO 

TSOE 

73 
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APPENDIX  C 


PHILCO-FORD  EQUATION  OF  STATE 

This  appendix  contains  a listing  of  the  subroutine  Incorporating 
10 

the  Philco-Ford  equatlcm  of  state,  plus  Instructions  for  using  1^  in 
a wave  propagation  calculation. 

The  subroutine,  termed  EQSTPF,  is  called  at  two  points  In  a wave 

propagation  code.  The  first  CALL  Is  from  the  Initializing  subroutine 

(GENRAT  in  PUFF)  at  the  point  where  material  properties  are  inserted. 

At  this  CALL,  the  original  solid  density  (p  ) and  the  Hugonlot  parameters 

so 

(C,  D,  S,  r)  must  be  available  In  COMMON.  Additional  material  data  are 
read  in  directly  by  EQSTPF  during  the  initializing  CALL:  they  are  not 

available  to  the  rest  of  the  program.  All  other  input  and  output  variables 
are  Inserted  through  the  CALL  statement.  The  CALL  statement  used  In  GENRAT 
is  simply 

CALL  EQSTPF  (0,IN,M) 

where  the  first  parameter  (NCALL)  indicates  Initialization,  the  second 
(IN)  Is  the  file  containing  the  input  data,  and  the  third  (M)  Is  the 
material  number.  During  this  CALL,  the  subroutine  reads  two  cards  and 
Initializes  Its  Internal  array  variables.  These  data  cards  contain 
Identifiers  and  14  constants  In  the  following  form: 

TI-PF  1 1.800E  00  3.970E  00  0.  1.750E  00  2.612E  10  1.490E  10  1.170E  10 

TI-PF  2 1.159E  11  1.060E  11  3.550E  03  1.160E  04  1.950E  03  4.790E  01  5.638E  00 

The  cards  contain  an  alphanumeric  title  in  AlO  format  and  14  variables  in 
E10.3  format.  The  variables  are  Cl,  DLM,  DSM,  Dl,  HLB,  HLM,  HSM,  HVB, 

HVM,  TDK,  TCK,  TMK,  WT,  AND  ZKO.  These  variables  are  listed  for  aluminum, 

10 

beryllium,  and  titanium  in  Table  C-1  as  they  were  taken  from  Goodwin  et  al. 
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TABLE  C-1  PHILCO-FORD  EQUATION-OF-STATE  DATA  FOR  ALUMINUM, 

BERYLLIUM,  AND  TITANIUM^® 

Variable Aluminum Beryllium Titanium 


, 3 

RHOS,  p 

' ' 

g/cm 

2.71 

1.85 

4.5 

SO 

, 2 

11 

12 

12 

EQSTC,  C 

dyn/cm 

7.72  X : 

10 

1.203 

X 

10 

1.016 

X 

10 

EQSTD,  D 

, 2 
dyn/cm 

4.908  X 

10^^ 

8.212 

X 

10^^ 

7.222 

X 

10^^ 

EQSTS,  S 

2 

dyn/cm 

6.076  X 

10^^ 

-3.79  X : 

10^^ 

-5.685 

X 

10^^ 

EQSTG,  r 

2.11 

1.15 

1.09 

Cl 

1.80 

l.BO 

1.80 

DLM 

g/cm^ 

2.380 

1.690 

3.97 

DSM 

g/cm^ 

2.537 

1.808 

(4.25) 

D1 

1.75 

1.75 

1.75 

10 

10 

10 

HLB 

erg/g 

3.020  X 

10 

8.983 

X 

10 

2.612 

X 

10 

HLM 

erg/g 

1.061  X 

10 

10 

4.976 

X 

10 

10 

1.494 

X 

10 

10 

9 

10 

10 

HSM 

erg/g 

6.658  X 

10 

3.674 

X 

10 

1.170 

X 

10 

11 

11 

11 

HVB 

erg/g 

1.400  X 

10  . 

4.202 

X 

10 

1.157 

X 

10 

HVM 

erg/g 

1.260  X 

io“ 

3.925 

X 

10^^ 

1.060 

X 

io“ 

TBK 

o 

K 

8000 

8000 

11,600 

TMK 

o 

K 

932 

1556 

1950 

WT 

g/mole 

26.98 

9.013 

47.90 

ZKO 

5.626 

5.626 

5.638 
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The  second  CALL  to  EQSTPF  Is  made  to  obtain  the  pressure  in  a wave 
propagation  calculation.  In  SRI  PUFF,  this  CALL  statement  Is  In  HSTRESS: 
CALL  EQSTPF  (1,  5,  M,  C(J) , D(J) , E(J) , P(J)) 

The  first  parameter  (NCALL)  signifies  that  pressure  Is  to  be  computed. 

C,  D,  E,  P are  the  sound  speed,  density,  energy,  and  pressure.  C Is 
unused,  D and  E are  provided  to  the  subroutine,  and  P Is  output. 

A pictorial  view  of  the  EQSTPF  Is  given  in  the  simplified  flow  chart 
in  Figure  C-1.  The  subroutine  is  actually  in  two  parts:  the  first  handles 
reading  and  Initializing  and  the  second  (beginning  at  location  200) 
handles  pressure  computations.  The  second  part  contains  three  subsections. 
The  first  of  these  selects  the  appropriate  phase  for  material,  the  second 
contains  two  functions  for  numerical  evaluation  of  quantities  on  the 
phase  boundaries,  and  the  third  contains  five  sections  for  computing 
pressures  in  each  of  the  three  phases  and  two  mixed  phase  regions. 

A nomenclature  list  is  provided  containing  the  input  variables  and 
other  principal  variables  of  the  subroutine.  This  list  is  followed  by 
a listing  of  the  subroutine  in  FORTRAN  IV. 
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BEGIN  INITIALIZING 


NCALL  IS  ZERO  FOR  INITIALIZING,  ONE  FOR 
COMPUTING  PRESSURE. 


READ  2 CARDS  CONTAINING  MATERIAL  NAME,  AND 
14  VARIABLES:  Cl,  OLM,  DSM,  01,  HLB,  HLM,  HSM, 
HVB,  HVM,  TBK,  TCK,  TMK,  WT,  ZKO. 


COMPUTE  THE  MELT  DENSITY  TO  BE  CONSISTENT 
WITH  ESO.  COMPUTE  PRESSURE,  ENERGY,  AND  Z 
AT  CRITICAL  POINT.  COMPUTE  INTERNAL  ENERGY, 
SPECIFIC  VOLUME  AND  PRESSURE  CORRECTION  AT 
ZERO  PRESSURE  ON  THE  VAPOR  TO  LIO'JID-VAPOR 
PHASE  LINE.  COMPUTE  SPECIFIC  HEATS  FROM  THE 
RATIO  OF  ENTHALPIES  TO  TEMPERATURE  CHANGES, 


BEGIN  PRESSURE  COMPUTATIONS 


SOLID 

SOLID- 

LIQUID 

LIQUID 

LIQUIO- 

VAPOR 

VAPOR 


TEST  INTERNAL  ENERGY  AND  SPECIFIC  VOLUME 
AGAINST  THE  ENERGIES  AND  VDLUMES  ALONG 
THE  PHASE  LINES  TO  DETERMINE  THE  APPROPRIATE 
PHASE. 


MA-2407-21 


FIGURE  C-1 


SIMPLIFIED  FLOW  CHART  FOR  EQSTPF  SUBROUTINE 
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LOCATION  600  STARTS  A SPECIAL  FUNCTION  FOR 
COMPUTING  SPECIFIC  VOLUME  ON  THE  PHASE  LINE 
BETWEEN  SOLID  AND  SOLID-LIQUID  REGIONS  FOR 
GIVEN  INTERNAL  ENERGY.  FOLLOWING  COMPUTATIONS. 
CONTROL  RETURNS  TO  THE  POINT  INDICATED  BY 
NPART. 


LOCATION  650  STARTS  A SPECIAL  FUNCTION  FOR  COMPUTING 
STATE  POINTS  ON  BOTH  LEFT  AND  RIGHT  BOUNDARIES  OF  THE 
LIQUID-VAPOR  REGION.  CONTROL  RETURNS  TO  THE  POINT 
INDICATED  BY  NPART. 


MA-2407-22 


FIGURE  C-1  SIMPLIFIED  FLOW  CHART  FOR  EQSTPF  SUBROUTINE  (Continued) 
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SOLID  PHASE 


SOLID-LIQUID  REGION 


LIQUID  PHASE 


VAPOR-LIQUID  REGION 


VAPOR  PHASE 

MA-2407-23 


FIGURE  C-1  SIMPLIFIED  FLOW  CHART  FOR  EQSTPF 
SUBROUTINE  (Concluded) 
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NOMENCLATURE  OF  INPUT  AND  PRINCIPAL  VARIABLES 


Al,  A2,  (o  , (V  ) 
a b 


Constants  in  vapor-liquid  equation 
of  state 


B,  BP,  (b,  b') 

CBT,  (C*T  ) 

M 

cc 

Cl,  (c^),  Dl,  (d^) 

DEOV 

DLM 

DSM 

EBL 

EBS 

EC 

ELO,  (E  ) 
io 

EO,  (E  ) 
o 

EQSTC,  (C) 

EQSTD,  (D) 

EQSTG,  (r) 

EQSTS,  (S) 

ESO,  (E  ) 
so 

EVO 


Constants  In  vapor  equation  of  state 

Average  of  specific  heats  at  constant 
pressure  In  solid  and  liquid  phases, 
times  the  melting  temperature,  erg/g 

(Ci/di)^/27 

Coefficients  in  the  relation  for  density 
at  the  phase  line  between  the  liquid  and 
liquid-vapor  regions 

3 

(ELO-ESO)/(VLO-VSO)  = AE  /AV  , erg/cm 

o o 

Density  of  liquid  at  melting  and 
atmospheric  pressure,  g/cm^ 

Density  of  solid  at  melting  and 

O 

atmospheric  pressure,  g/cm 

Internal  energy  of  liquid  at  boiling, 
erg/g 

Internal  energy  of  solid  at  boiling, 
erg/g 

Internal  energy  at  critical  point,  erg/g 

Internal  energy  at  atmospheric  pressure 
on  phase  line  between  liquid  and  solid- 
liquid  regions,  erg/g 

Internal  energy  of  the  ideal  gas  at 
zero  temperature,  erg/g 

2 

Bulk  modulus,  dyne/cm 

Second  coefficient  of  Hugoniot 
expansion,  dyne/cm^ 

GrUneisen  ratio 

Third  coefficient  of  Hugoniot  expansion, 
dyne/cm^ 

Internal  energy  at  atmospheric  pressure 
on  phase  line  between  solid  and  solid- 
liquid  regions,  erg/g 

Internal  energy  of  vapor  at  line  between 
liquid-vapor  and  vapor  at  zero  pressure, 
erg/g 
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HI£ 

HLM 

HSM 

HVB 

HVM 

NCALL 


P 

PC,  (P  ) 
c 

PVO 

RHOS,  (P  ) 
o 

Rl,  (R) 
TBK 

TCK,  (T  ) 
c 

TM 

TMK,  (T  ) 

M 

V 

VC,  (V  ) 
c 

VLO 

VO 

VSO 


Enthalpy  of  liquid  at  boiling  and 
atmospheric  pressure,  erg/g 

Enthalpy  of  liquid  at  melting  and 
atmospheric  pressure,  erg/g 

Enthalpy  of  solid  at  melting  and 
atmospheric  pressure,  erg/g 

Enthalpy  of  vapor  at  boiling  and 
atmospheric  pressure,  erg/g 

Enthalpy  of  vapor  at  melting 
temperature,  erg/g 

Indicator  in  the  formal  parameter  list 

0 means  reading  and  initializing 
is  required 

1 means  pressure  is  to  be  computed 

2 

Pressure,  dyne/cm 

2 

Critical  pressure,  dyne/cm 

Correction  to  pressure  of  vapor  to  force 
a zero  pressure  point  on  the  phase  line^ 
between  liquid-vapor  and  vapor,  dyne/cm 

3 

Initial  solid  density,  g/cm 

7 o 

Gas  constant,  8.3144  x 10  ergs/  C/mole 

o 

Boiling  temperature,  K 

o 

Critical  temperature,  K 

TMK/TCK,  reduced  temperature 

o 

melting  temperature,  K 

3 

Specific  volume,  cm  /g 

Specific  volume  at  the  critical 
point,  cm  /g 

Specific  volume  of  liquid  at^melting 
and  atmospheric  pressure,  cm  /g 

3 , 

Initial  specific  volume  of  solid,  cm  /g 

Specific  volume  of  solid^at  melting  and 
atmospheric  pressure,  cm  /g 
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wo 


Y1 

Y3 

ZC,  (Z  ) 
c 

ZKO,  ZKl,  ZK2, 
ZM,  ZN 


Specific  volume  on  phase  line  between 
liguld-vapor  and  vapor  at  zero  pressure, 
cm  /g 


Molecular  weight,  g/mole 


2C.T^ 

2C.^.T 


2 

M 


P V /RT  , compressibility  factor  at 
c c c 

critical  point 

Constants  In  the  vapor  equation  of  state 


Constants  In  an  approximate  fit  to  the 
P -T  relation  on  the  boundary  between 

V 

liquid  vapor  and  vapor: 

ZN 

P V = 1 - ZM  (1  - — ) 

V c T 

c 
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SUBROUTINE  EQSTPF 


C 


*0 


42 

44 


C 


SUBMnuTiNr  bU^TPF INC«LL • lN«M«c J«D*b 

tUST^F  CuMPutES  F'MFSSUME  Fnum  a THhEF-PnASir  FOUATION  OF  SUFF 
UFVClOPEU  HV  PhILCO-FOHD*  PUUIInE  has  ThO  F'AHISi  ONE  F Oh 
MFAUlNr;  ANn  INlTlALl2IN(i  Am.'  The  OThEH  FUK  COmPUTINO  PHESSUHF. 

ME40  INPUT  (NrALlatl.  CALC  IS  FHUH  GENhAT, 

INPUI  - Nr*LLt  IN,  H,  ANO  MATEHIAt  PnOPEHIV  CAROS 
OUTPUT  • prints  L«HU  IhAGES*  OH6AN17ES  04>4  INTO  AHNAYS 
COMPUTE  PRESSURE  (NCAU«1)  CALC  IS  FPOh  hSThFSS  USUALLY 
INPUI  - NcaLL,  Ht  CJ*  U#  t 

OUTPUT  - P ICURPENT  PHASE  OH  STATL  UF  HAIFhIAL  IS  AVAILABLF.) 

F'AmEP  COpmun 
REAL  MU, MUM 

COMMON  /EoS/  EQSTA(F>),FUSTCt4)tEUSTDl6),EUSlF  iHt,EUSTO(H;, 

I CUSTHI4I  ttUSTNIFI  iE0StS(6)  tEUSTVIA)  ,C^U(6>  irau  ((>)  ,C?  (6) 
common  /MFLT/  EMEl  T I4,b) «SPH(6) 

COMMON  /RhO/  RMOIA) •PHUSIM 


FUSTPF  ( 
FUSTPF  i 
EUSTPF  A 
FUSTPF  H 
FUSTPF  t 
FUSTPF  / 
EUSTPF  H 
FUSTPF  U 
EUSTPF lu 
EUSTPF 11 
EuSTPf  U 
FUSTPF IJ 
FUSTPF 1* 
EUSTCUMe 
EUSTCUM3 
EUSTCuMa 
EUSTCOMS 
EUSTCOMa 
EUSTCUM7 


CUMMON  /TSR/  TSH(H«  JO)  tFXMAT  IA,i>CI  tTENSIStJI 
COMMON  /V/  V0(A),PAU0(4F,MU<6»,NUM,rAU(>M 

OlMCNAIuN  A1  (A)  ,A?I6I  ,PI4l  yMRIS)  «C1  <41  •CAT  14)  ,LUb)«lV<4)  ,UI  <»)  , 

1 OtOVIA) ,C«L  <4> irHS<4) tic  14) tlESlA) ttLO(A) ,tlMf ) ,EU«0<4l  tEPSI 14) 
I CRSTM4)  ,IIUIN)  t|VU<4)  ,MUCI  <A)  tPCIN)  tPV0<4)  tTM(l>)  ,VCI4>  t«L0<4)  , 

3 VOI4)t«40<4t ,V«nik) ,aT(e) ,V1 <41 ,V3I4)  i/C<4) ,/A0l4) ,741 (4) t7A2<4 

4 ,2NIA)  ,7Mlfi| 

DATA  ACCt  PI  /l.E-«t  b.JUAE?/ 

•••••  RHANrH  To  INIT  IALUATION  Oft  tOMPuTAllON  PORTIONS 

IFINCALL  ,EU.  1)  r.O  TO  20C 

peau  input  data  anu  initialize  constants 

IND  ■ Sh 

ftCAO<IN,I101)  71 trl (M) ,OLM,b$M,UI <M)  ,HLAthLMlMSM 
«HITEI4,1Ifll)  Zltcl  (M)  tULMtUSM,OI  <H)  ,)iLbiHLMiHSP 
4RITF(4»110ill  INU.IN 

REAU<IN,11<,1)  71,HVA,HVM,TMKtTCKtTMK,«TlM),/A(l<M) 

HM|TC<«tl1on  71,MV0iHVM,ThKtTCKtTMK,«TIM) ,ZKO<P) 
wRirriAfiioiZ)  IND, IN 
VO<M)  ■ 1,/MM0S<M) 

ESO<M)anSM 

IF  <OSM  ,GT.  f..)  to  TO  sc 

COMPUTE  -nSM-  IF  UNSPECIFIEU 
ER6  ■ EwSTG<M)*PH05(M)»ESU(M) 

EMU  ■ -tF)OZ(EOSTC(M)  *EHG) 

EMU  • •t«fi/<lOSTC<P)«<EOSTO(M)*EOSTS<M)»EMU)*FMUtERG) 

NC2»P 
EMUO  ■ bPU 
NC2MNC2*! 

1F<NC?  ,GT.  2")  GO  TO  42 

P ■ CMU«<EUSTc<M)*EMU«IEQSTU<M)«EFiUaEUSTS<M))*EPG)*FPG 


EUSTCUMh 
EUSTCOMV 
EUSTPF lb 
•EUSTPF 17 
EUSTPF Ib 
lEOSTPF IV 
EUSTPF  2i' 
EUSTPF21 
EUSTPF2^ 
EUSTPF2J 
FUSTPF  2a 
EUSTPF 2S 
EUSTPF2t> 
EUSTPF27 
EUSTPF2P 
EUSTPF2V 
EUSTPF3<« 
FUSTPF31 
EUSTPF  37 
EUSTPF 3i 
EUSTPF 34 
EUSTPF 3S 
FUSTPF 3b 
EU5TPF37 
FUSTPF  3« 
EUSTPF 3« 
EUSTPFAt 
E0STPF41 
EUSTPF42 
EUSTPF43 
EU5TPF44 
EUSTPF4S 
EUSTPF 4b 


PP  ■ E0STC(M)*EH0*EMU*12.*EU$T0(M)*3.*EMU*EUSTSIM))  EUSTPF47 

CHU  ■ EMU-P/PP  FUSTPF 4I> 

IF  lAPSItMlJ-EMIlO)  ,CiT.  ACC)  GO  TO  All  FUSTPF4V 

00  TO  4a  EUSTPFSu 

PRINT  li03tEMiJOtP,PPtEMU,M  EUSTPFSl 

STOP  42  E0STPF52 

CONTTNUb  EUSTPF S3 

VSO<M)  ■ vO(H)/<EMU*l.)  EUSTPFS4 

00  TO  bb  EUSTPFSS 

ADJUST  >£40-  , >VSU-  TO  AGREE  WITH  •OSM-  EUSTPFSb 
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SUBROUTINE  EQSTPF  (Continued) 


Si 


C 


C 

c 

c 

c 

c 

c 

c 

TO 


c 


c 


c 

81' 


82 


ViO(»)  » 

f^U  ■ I'iK/HiKii;  (►,) -1  . 

f SO(»-)  s (K)  *Fmu*  (f  USIU  (H)  •CKU^tUSTS  IH)  ) )/  (tClSTb(M)* 

1 • ( i , *F‘  UI  ) 

MIX'*)  » ) iu  ( '•)  ♦ML 

ri'«"»-UTt  -PLK-  X iitxSPkClMtu 
IklUL**  .LF.  (.)l'L»  ■ f.>OS/»SO«N) 

VLOI**)  s I i/l'l  M 
TF'«**)  ■ Trh/TrK 
IH  ■ |P^/K^ 

KLH  c h»H-PLh 

^iiLVt  MJK  -CL-  FWOK  EU.  3,<?1 
CL  a (MLH-hLF ) / ( THK- tMKI 

CWIM)  s (HVrl-HVH)  / IIHK-TMK) 

DLTC  « LV(F)-rL 

SIM  VE  FOh  -Al-  « -A?-  AMO  -ALHHA-  FhUH  EUS.  3.24 
A1  (<i)  a ( I )«./P|*aT  (F'l 

A«(**)  a (FLB-nLTC*TbH»/().iaTCM)*aT(M) 

S'^LwE  foP  -Ah-  FMOF  EU.  3,25 
A ■ Hh./TM-b.aTHaaft-*?. 

Ah  a (Ac(m)/Th*A1 |M)«o,3l42bax)/(l.«0.0(t3B*A) 

A2(M)  ■ A9IM)-AI (P) 

SfiLvE  Fuh  -/C-  FHOh  Eb.  3,27 
2C«H)  s l,/(3,72*(i,2Ma<AH-7,»  ) 

«OL»E  Eoh  -WC-  fHOM  EU,  3,33 

VC(*I  a 1 1 .*C1  (h)*(l,-tM(H)  )*a(l,/3,)*0HM)«(t  ,-Tl»(M)  ) )/0LM 
S0L»E  M/h  C"lTICAt  PHESSUhE  -PC-  E«UM  EU.  3,34 
PC(M)  a 7r(M)aPl*TCM/VL(M|/aT(M) 

S'lLvE  M*,  3.E(<  EOh  hi  a BETA,  COMPUTE  btbP 
Ml  a •), 

M2  a ) ,3a(l,//ClM)-» .) 

HJ  a ?,«S//C(w)««?-S,S/^C(m)-0,7S 
Bp  a n I 

Bl  a h2*SOMt (H 3-1 ,/hl ) 

Ih  (AHS(  (Ml-br)/B1 1 ,6T.  ACO  (>0  TO  7o 
b(P)  a M3,«hl-6)aHi-l.)/(Mia(3,»Bl-),» ) 

MM(H)  a <Ml-3,)/(3,*Ml-l,l 

COmhOTE  -AO-  . -Kl-  I AMO  -K2-  (EOS,  3,7) 

IE  <2K(XM)  ,tu,  L.)  2A0(MI  a fcl 
2Ml  (M)  a w1-2kO(M) 

Za2(M)  a (1,*7K1 (H ♦Hl-Al  (M)-A21H) »/2, 

EPSl(M)  a /L(M|aTCK*Pl/aT(M) 

EPS2(m)  a TCxa(CV(M)-m/4T  (M)  ) 

FO(M)  a Hvh-CV (M) #TBA 

Sl'LvF  EO.  3,2P  TOP  hV  TU  FIND  EVOt  PvO»  OvOt  WO 
T a rM(M) 

PV  a FXMA2(M)a(l,-i,/T)*Al  (M)*ALO(i(T)) 

Xl  a T/iC(M) 

A a 7KO  iM)  *2M  (M)  /T 
AM  a 7xt<H)a(T-),/T) 

Ff'LvE  Eu,  4,5  FOM  hv 
Pv  a PW/X1 
MC3ar 
HV]  a MV 
Mt3aMr3»1 

IF  (NCI  ,r,T , ?(  ) r,0  To  M2 
X2  a ) ,-(M(M)-bP)K)*MVll*HVl 
PO  a xiaPVl/X?-(A*AMapVl )«MViaa2 

POP  a Xi/X2* (XiaHVl*(BlM)-2t«BP(M»*RVn )7(X2*x2)-(2,*A*3.*AP*RV1) 
l«MVl 

HVaAMAXi  IPV1« (PV-PO) /POP* I ,E-12) 

IF  (AHS(PV-NV) ) ,GT,wCC*HV  ,ANb,  AUS (RV-HV] ) ,(>T , I ,E*1 2)  GO  TO  VO 
GO  in  Mb 

PMIMT  llPAtKV) ,PO,POP,PVfM 
STOP  P2 


E0STPF5T 

EOSTPFSei 

FUSTPF59 

EUSTPFGl 

E0STPF6) 

EUSTPF62 

E0STPF63 

FUSTPFb4 

EUSTPF65 

EUSTPF66 

E0STPF67 

EI/STPF6V 

E0STPF69 

EOSTPF70 

E0STPF71 

F0STPF72 

E0STPF73 

EUSTPF74 

E0STPF75 

EUSTPF7V 

ECISTPF77 

E0STPF7V 

E0STPFT9 

EtiSTPFVO 

EUSTPF81 

EUSTPFV2 

EUSTPFB3 

E0STPFB4 

EBSTPK85 

EUSTPF Bb 

EUSTPF87 

EQSTPF ev 

EOSTPFB9 

EUSTPF9I/ 

E0STPF91 

EQSTPF 92 

EQSTPF93 

EQSTPF 94 

EQSTPF95 

EQSTPF 9b 

EUSTPF97 

EQSTPF 9b 

EQSTPF 99 

EQSTPlOO 

EUSTPlOl 

EQSTPI02 

EQSTP103 

EQSTP104 

EQSTPIOS 

EQSTPlOb 

EQSTP107 

EQSTPIOS 

EQSTP109 

EQSTPIU 

EQSTPIll 

EQSTPIU 

EQSTPIU 

EQSTPIU 

EQSTPllS 

EQSTPllb 

EQSTPllT 

EQSTPllb 

EQSTPIU 

EQSTP120 

EQSTP121 
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SUBROUTINE  EQSTPF  (Continued) 


m3 

C 


C 


10b 


E(iiSTMi22 

«'LVF  (WS,  *.*Ct  (It  «MI  E FOii  EVt  ML*  fcU  EUSTP123 

FV  s K>|F)  (M/T)-2K?(M)*MV/1  l•NVEbSTPl^• 

HL  a l.*n(^)a(l.>T)aa|l./3.)*0i(F.)all.-1)  EUSTPU6 

EL  a F^-KPSlCi|«Hw*l|./HV-|./t<L)*(A?(M)/T«M(M).l.)  EUSTP126 

M a Ffi(M)  •►.I  0(M-EL  EOSTP127 

Evixt)  a tv*|i-Fli(M)  EbSTPl?M 

► »*)(»•)  a tJV  EUSTP12V 

V«lH»|  a vC(r')/HV  EUS1P13U 

Eb(M|  a F 1 EUSTP131 

<iia«F'  Fu.  4. All  FOh  -EC*  MITh  1 a It  HV  ■ 1 EbSTP132 

IC|M|  ■ F(<iH) .fpSPIhI-ePSI  (M)a(iKU(M>»2.a/Rl  (M)-2K?(M) ) EUSTP133 

|itli«l»<)  a (tLniH).FSU(^.)  )/(VLU(M|.VSO(Mn  EUSTP134 

FtiVU(M)anFi><M'M  E05TP13b 

FFF'-m  a v«..(M|a(  Er  W(^)  EUSTP136 

( *»  a (r  1 (Mj/in  (K|)*ajl/,«7.  EUSTP137 

I t a Fb('l»‘l/n»'K.?VH.)  EfaSTPlSO 

► CT(>*J  a P.b#(CL-CsO)aTMK  EbSTP139 

rrT(»'>  a ' ,5a»CC«f 50)aT4iR  EbSTPl«U 

EKL(^)  a rLulM)-CR(i*lFi»i  EUSTPl*! 

£hS<P»  a ►bOlMI-Cl  aiMo  EUSTP1*2 

Y1C*'»  a ?.*CFT(l'l  EfiSTP143 

VJIM)  ■ VI  <M)a|CL-CSC)a|MR  E0STP144 

CONSrPUcT  * FTT  Tr  aPPF.ORImaTE  HV-I  PELAlIUN  OR  LV-V  HOUNUPV  EUSTP1A6 

narai'.vb  E0STP146 

NPAKTsS  E0STP1A7 

Ml  To  bar  EOSTPlAb 

PlaHv  E0STP14V 


T^ala"  ,<» 

NPAMI  at 
Gu  In  *>af 
I Ob  P2awv 

24  <K)a  alC'GI  (1. -•*!)/ (j.-K?n/AL06ni,-Tl)/U,-T2)) 
24(H)  a (1.-HI)/(|,-Tn*«2N(H) 

Htrup^ 


rALCiiLATIO'tS  TO  FIND  P(VtE) 


• ••  «ELtrT  FF(iI0R  OF  PHASE  OlAC-PAMS 

?Hb  CONTl*nt 
V a 1,/w 

C SFLtCT  St  Sit  L OH  It  LVt  AND  V REGIONS 

IF  (V  .OF.  viniP) ) OU  TO  3bU 
C TFSI  FOh  roOl  sol  ID 

IT  IF  .lE.  tso(M))  00  TO  row 

C •••  SOLvF  FOM  VS  ON  s-si  HOUNUaKV  hITM  ESab 
r«?  a F-tHS(M) 

E2  a F 

NPAHT  a 1 ♦ 00  10  FOO 

C SFCUNP  BRANCH  FOP  SOLID  HATERIALt  CONTINUE  PITH  SI  ANU  L 

22b  IF  (V  .lT.  VSl  GO  TO  700 
C TFSI  FOh  rOOL  LIOUIO 

IF  (F  .lT.  tLO(H))  00  TO  7bb 
C •••  SOLVE  FOR  TERP  OF  E AS  IF  E IS  ON  SE-L  LINE 
V2  a F-thI (H) 

TF  a (VatRORT (r2av?-T3(H) ) )/Tl <M) 

C COapUTC  E<  FOR  IF 

E2  a FS  a EbS (R) *CHT (R) aTF*HOCT <M) /TF 
C 60  10  6U0  TO  GE1  VS  ON  S*Sl  LINE 

NPAPT  a ? > GO  TO  6U2 

C CORPUTE  VLR  or  SL-L  LINE 

2S0  VLR  a Vb« (F-ES) /OFDv (R) 

NL  a 1 

C separate  SOIIO'LIUUID  AND  LlOUlO 

IF  IV-VlRI  TbStTSStPlO 

c 

C •••  hEGIN  switching  FOA  Lt  LVt  AND  V REGIONS 


EOSTPIbU 

EOSTPIbl 

EQSTPIS2 

EQSTP153 

EOSTPIS* 

EOSTPIbb 

EUSTPiSb 

EUSTPI57 

EOSTPISB 

E0STPI59 

EOSTPIbb 

EOSTPIbl 

EQSTPIb2 

EOSTPibS 

EUSTPIbA 

EOSTPIbb 

EOSTPIbb 

E0STPIb7 

EOSTPIbb 

EOSTPIbb 

EOSTPI70 

E0STPI71 

EOSTP172 

E0STP173 

E0STPI7A 

EQSTPI7S 

E0STPI7b 

E0STP177 

E0STPI7B 

E0STPI79 

EOSTP180 

EOSTPIbl 

C0STPlb2 

E0STPIB3 

EOSTPIbb 

EOSTPIbb 

EOSTPIbb 

EOSTPIbT 

EOSTPIbb 

EOSTPIbb 


SUBROUTINE  EQSTPF  (Continued) 


300  ir  IV  ,lT,  vC(K))  bU  Ui 
C HW«nCm  ►op  Mlr.HUV  MAlfPltL 

!►  (V  .01 . WVftIK)  ) (.0  T(,  VOU 

C rOMl'tU  tf(V)  AT  CNUKAL  Itwp  to  Co>"PAKt  mtlH  (■ 

ECW  > tolf*!  ^EPS?  (P)-FPS  I IM|  • I l/M)  (H>  I (►  ) ) •PV-/K?  (‘'I  •HV»PV  ) 

C StCOMD  f-APTlAL  ISOLmTIO^  OF  V mOFt  IV  bfcfalON 
IF  IE  ,oT.  tCW»  (ill  ir  vin 

C COMMUTE  T *M)  InFN  Fv  ON  CV-V  LI'vt  10  hAKt-  ThIPI  ItSi  Fop 

C SFPfcPATlNr-  LV  ANU  V 

hV  a VCIM)/V 

*l  a >4W/ (?C  IFn*(i  -mP(M)  *Kv  J*PV)  ) *PV**il 

X2  a .^^C(M)•PV•RV 

X3  a (^^^(M)a7V-/t'I^Fl)  )*PV«KV 

T»*1N  a v.O 

IF  (XI  ,6T.  r.fl  ,FNU,  *3  ,bl.  1..0)  T**IN«S«Fil  UJ/Xl) 

FFIAX  > |F-tLb(MI  > ' ltVO(M)«F.L()|M)  ) 

IFIW  .01.  FmAx*VvO(M»  I I .-FMAX)*wLOl“n  GO  lo  vWf 
T a 1 .0 

PV  a FXp(A2(Fija(l.-l./t)*Al  (M)aALO(i(TI  ) 

NC«an 

310  PVT  a Pv 
NLAaNCA*! 

IF  (Nr*  .01.  ?||)  bO  T(i  31>> 

TA  a T 

Mb  a XiaT*X<!*X3/T 

PVP  a Pva|A^(P)/T«Al (Ml  t/T 

PGP  a amaxi (r.iXi.x3/iT«rn 

T a AMAAl |TA«(Pb>PVI/(PVP>P6P» ttMIN^ACC) 

IF  (PVF<-Pf,P  .LT.C.  I TaTA«O.Cb 

T a AF<lNl(l.tA.8aTA*C.199l 

P(  a ([XF<IA2(Fl*(l.-l./T»*Al  (**I*AUU0(T)  ) 

It*  (APSKPV-Pvn/PVI  .bt.  ACC)  00  TO  3lu 

EV  a FO(M  •tPS2(H)*r-EPSi  (Ml  • (^KO  (FI)  ♦2,»XRl  IK ) /T -/K2  (F  > *►« V/ t ) *WV 
C BPANtM  10  EITpFH  V OP  LV  MEOIONS 

IF  (T  .lF.  IF<(M)  ) GO  TO  9eb 
IF  (E-EV)  Hb0f900«900 
312  PHINT  noSt  lA.PfMPVPfPGPiltPV.M 
STOP  3U 
C 

C •••  TEST  1(1  sEFAPATE  L and  LV  PEOluNS 

C FI«ST  COMPUTE  T On  L-I.V  LlNtt  THEIV  tL 

3SU  NL  a ? 

IF  IF  .OT.  EC  (FI)  ) GO  TO  HOC 

HL  a VC(P)/V 

XI  a ()..PU/n)  (M)/2. 

X a SOP) IVI*X1*CC(PI 1 

T a I,-((x-Xl)*a(1./3.l-lA«All**(l,/3.)»*»3 
C GO  10  6bP  TO  obtain  el 

NPAPT  a 1 
00  TO  6b0 

C RPANCH  TO  EIThEH  L of  LV  PblAlONS 

375  NL  a 3 

IF  (E-ELlBSStBSStBOV 

c 

C HUILT-IN  SURkOUTlNbS 

c ••••* 

c 

C •••  SOLVE  FOB  VS  UN  S-5L  LiNEtGIVEN  ES-tZ 

*00  TF  a (V2*S1ART(V2*VZ-Y3(Nn  1/Vl  (M) 

*02  POE  a HhOSIN)aEOSTG(F*)aEZ 
OEN  a EUSTC(M)*RGF 
ENUM  a tOVO(F«)a(TF-l.)>PGE 
ENUlA  a 0. 

ENUlR  a EF«UJA  a ENOH/OEN 
NClap 


FIjSIpik 
EOSIF-lvi 
F UMPIV/' 
FWSlPivj 
FoSTMlv* 
FOSTUVb 
F oMPl9». 
FUSTPIV/ 
EuSTPlVc 
FU5TP19V 
( ijSIf'tOi 

FbSTPcti 
E(.STP2(/e 
f USTP21.3 
EWSTPco* 
FLSTPZtb 
F l»STF  ^ l/b 
EliiSTHcU/ 
EoSTPZOb 
FUSTPbOV 
EUSTP210 
KUStPZn 
EUSTPelZ 
EUSTP213 
F(iiMP2U 
FUSTP21S 
EUSTPblb 

EviSIPbl  r 

FLSTPclFi 

FUSTP22V 

F.0STP221 

El<STP222 

F0STP22J 

EI.STP22A 

ElvSTP22b 

E0STP22h 

EUSTP2i7 

EbSTP22ti 

EwSTHc2v 

F(<STP23i. 

E05TP231 

FUSTP232 

EUSTP233 

E0STPr3a 

KvSTPc3b 

EI1STP236 

EOSTP«37 

EbSTP23b 

E0STP23V 

EOSTPeAO 

EUSTP2*! 

Ei^STP2A2 

E0STP2A3 

E0STP2AA 

ElvSTP2Ab 

FbSTP2«b 

F.USTP2*7 

EUSTP2«B 

E0STP24V 

E0STP25U 

E0STP251 

EUSTP252 

E0STP253 

E0STP25A 
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SUBROVriNE  EQSTPF  (Continued) 


fct  S c (Ilf  n 

l»t.  I «•>.(.  I « ) 

If  (.^c>  .<•!.  <'  ) '<('  111 

If  I iff.l-fMl'.ll.)  .If.  ACC)  liO  10  MO 
ff'iJlft  s I. -.u  'r 
fi'iilJA  » f>-"Jh 
« fM 

M.-  Tc 

e)i*  vs  ■ I ./ (f'M(^S(.i)»(FM)«i.) ) 

(•!'  fn  i«?ni<'S»' «‘<nsiiv,f<»fit 
fciCO  fflM  ,f /*f  «tf*LilA,t>n)Ia 

SlOf- 

c 

C •••  SOI  Vt  f'lf  PtWL«tU«nV*F.Vt  OM  LV-V  HOUNCiHV 

c 

6b0  f'V.fc.Xf  (*,?  (M)  • , 1 ,-i  , / I ) *AI  If  IVAtUGl  1)  ) 

Xl«T//CtM 

AB2nn(i4j  */M  (.  )/l 
Af>«2f?(M*(  l-i  ,/1  ( 

PAa»>v/>  1 

flA  <af>  (fi|  .A/A  1 

If  <f'A»DA>  .n.  -1  .am;.  SpakT  ,Lt,  b)  (>0  TO  fcS3 

PVaPX*  ( 1 ,-fA«l<A»  ) 


kbSTH<:bb 

FUSTP^be 

FfaSTP^bT 

EUSTPZbb 

EUSTP^bS 

EOSTPebU 

EbSTPicbl 

ECiSTP26^ 

EUSTP263 

EUSTP26* 

EOSTP^bb 

EUSTP^bb 

EOSTPkbY 

EOSTPZbh 

E0STP2bV 

EClSTPZro 

E0STP271 

E05TP272 

E0STP<73 

E0STP274 

EOSTP27b 

EUSTP27b 

EWSTP277 

EUSTP27b 


If  (P>«iiA«  .LT,  -n.ufi)  f VaPV/ (XI/ ( 1 ,♦  (-d  (Ml  »hf  (M)*NV)«hV) -(A*AP*HVE0STP279 
1I»WV)  EUSTP28t 

Ml  1(i  Ob*  E(JS1P2bl 

bb3  Pval../!' l>  I•l1..1)••/^(M)  E0STP2S2 

bb4  M.7a>i  EUSTP283 

bbb  PV]  a f»  EbSTP2b4 

NCraAirf*!  EuSTP2bb 

If  (IK  7 .1.1.  ?'.)  r.t  (0  u7  . EUSTP2bb 

A/  a i.-(i.(Ai.nP(f|«HVI*»-v  E05TP2b7 

f>(.  a »|«Kv/A2-(AfAP»PV)*HV*«?  E0STP2bH 

Pop  a Xi/Xiff  (X  |*PV«  (d(M).<».aHP(Mi#Hvn /a2»*2- (?.*I*3.*AP*PV»*KV  EUSTP2HV 
f.»  a ammX  I (PV*  (PV-PU1/P(  P.  1 .E-121  EUSTP290 

If  (A«Mf-v-"V  1 ) .01  .«cc»f<v  .ANU,  Adb(Mv-HW)l.br.l.E-U)  (.0  TObbb  E0S1P291 
Fv 
If 
f L 
(-0 


b7r 


a siMf  )«f  P«;2(M|«1-tPM  (Ml«(  l/AU<f  ) ♦2.*7Ki  (P)/T)-/A?tM»fiV/1)*PVE05TP2«2 


(i.PacI  .1.1,  1)  PL  a l.«Ci<f)*«l.-T)»«ll./3.)*ni  (►)ail,-T) 

a Fv-f  PS|  |w) •PV*( I ./PV-1 ./ML>*  CAZIP) /T*a1 Cm)-1,) 

Tr.  (j7S.ei)S.f7S.M7.l(it.lOSI  SPAPT 
PHINTI JiO.fV.PVI  .f V.POlPOP.t V.PL.fU.T.P 
SIpP  *,7t 


C *••••# 

c 

c •#•••• 

c 

c ••• 

7ou  Ffu 
PiiE 

P a 

00 

c 

c *•* 

7b'i 


rALti'L«1  lOi.S  FOP  fACh  Phase 


SOLll’  fHASt 
a I ,/PhUS (HI /V-1 . 
a MiiCs(H)  afuSIMHiat 

EHO*  (FCSTr  (»')  .Ff'O*  (LOSTt  (Hi  ♦tfO»EuS  I S (HI  I fHOf  I fPOf 
IP  KOr 


<OUr  - Uo'no  f UFI’  PHASE 
FHAA  a (F-tSO(-l )/(tLO(HI-tS0(Hl  I 
If  (W  ,0T.  f Hf X*Vl 0(H) ♦ ( 1 .-f HAX)»VSO(H) I 
C FINw  T fOC  V.  E In  SL  HtOION 

7bb  EPS  a f.()FOV(M)av 

F S a fPb*r.fuV  (H)«vs 
Vx*  a FS-FhS(H) 

Tf  a (VefSPPl (Y2»V?-Y3(Mn )/T|  (H) 

NCSan 


01)  lo  V9r 


EUSTP2V3 

E0STP29A 

E(/STP29b 

EbSTP29b 

E0STP297 

EbSTP29H 

EUSTPi:99 

E(ilSTP30U 

EUSTP30I 

E(xSTP302 

EUSTP303 

EUSTP304 

EUSTP30S 

E(ASTP30b 

EOSTP307 

EUSTP30b 

E(ASTP309 

EUSTP3U 

EUSTP3n 

rOSTP3U 

EUSTP313 

EUS1P314 

EbSTPilb 

EUSTP31b 
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Reproduced  from 
best  available  copy, 


SUBROUTINE  EQSTPF  (Continued) 


1t(i 


7bn 

c 

c 

c 

sou 


c 


BUS 

BIU 

C 


C 


812 

C 

C 

C 

BIS 

C 


bI6 


C 

C 

C 


TfO  ■ T»-  I 

NCS«»«rb*l  M-Stf-Jlr 

I^  »NCS  ,GT.  Cl  ) 0(.  tc  7m  KiSl^'.Mv 

tMI  ■ t l*-l  , H.‘  «/l 

ESP  « tbl  twSIf^.^tV 

EUH  ■ •E^t'*ETA**?/tfS(Ml 
PbE  « KmiS(M)*f (•S'U'tM)*fS 


) -W(it  tbSIPJiS 

HF-  • FO»0(W)-(f(JS1CI»‘)*tHli*l2,*tuSliiC»  )»tMU«J,*M7STS(F  I ) •M'k  )*t  lA>'EOSrPj27 


TF  ■ TF-H/M>* 

ES  ■ Erti(M)  «rM  (M)  *1F  *M(  Ct  (►'I  / l7 
WS  • (FS-fF-Sl/OtLiVlH 
IF  (*»iMTF-IFo)/TF  ,(»T.  ACCI  <'C>  tl- 
P • FOVO<m)*(TF-1.) 

6U  to  ibCn 

PkJNt  li( 7«IF ,1F0itiM 

SICP 


7bu 


^USTPj<;^ 
tUSiHJiv 
f OSTPJ3.1 
tUSTF.iil 
tUSIF'J3r' 
FUSTPJ33 
ttiSTPiJ* 
FiwSTPjiS 
kbSlHjati 
FUSFP337 


*••  I IwUTU  PHAit 

SOLVE  7UF(  PLP*  VLM»  ON  SL-L  tlNF 
Y2  ■ F-tPI  <P» 

TF  ■ » *«i,H  I ( r/*V?-Y 3 (H  I ) /V  j (PI 

n ■ FS  ■ trtS(MI*rt<HMI*tF*nr>CI  (“l/tF 
i.»i  ir  Mio  It;  r.Ft  vs  on  s-si  lIF'F. 

NPAHT  ■ 3 
Go  10  ^v? 

VLM*  vs*<F-tS)/nk('V(M) 

PCH  a EbVO«P)*(TF-l .1 

SOLVF  FOF  Pi  n.  vLn  ON  l.-LV  LINE 
IF  (ML  .FO.  3)  00  To  elS 
IF  (F  .uF.  tC(M)  I <iO  1(1  h.>y 
IF  1M.  .to.  1)  GO  to  H2 
PL  a VC(F)/Y 
XI  a (l.-uU/n)  (Pl/c. 

A a SOP  I (7|*X1*CC(F<I  ) 

T a i.-((»-xi)**(i./3.i-(x**n**u./3.n*»j 
00  !('  ftsn  TO  ('Ht»IN  FL 
NPAPT  a ? 

GO  to  NaO 
T a Tp(F.I 
EL  ■ FLl/tMl 

bEOlN  iTFPATtON  LOOP  TO  FINP  vLn  ON  L-LV  HOUHOPV,  l.lVtN  F 

TLaT  S tTl  atL  » tlial.o  F tlOafC(p) 

TLAST  a O.S*(TO«tL) 

USE  PAhAMOLIr  FSTlMAtF.  OF  SLOPES  TO  OtjlAIN  I FCK  k 
S2aS?3»»Tl<-IL)/(ETIi-E1LI 
IF  (ETL  .NF.  £10(P) I 

1S2  a (Tl-TM<P|  )/ IFTL-tLO(M)  I ♦SP.t-(  tli-IN(H)  I X (1  In-tLOtP)  I 
r a Tl  ♦»S?*(S?3-S?l*(E-FtLI/lfcI0-tlL»)««k-k  IL) 

TLAST  a f>,S*mi*Tl  ) 

NCBar  $ NPAp1b« 

NCBaNCH*! 

IF(t  .61.  tUI  Ial,,l*Tl.ASl*r.Q»IU 
IF(f  .Lt.  tLI  Tat.laiLAST*t.U*tL 
IF  (NCH  .GT.  ?*>)  60  10  H?7 


EwStPjiF 
FOSTP33V 
FLSTHjai. 
tl.5TFj*l 
kuSTPJAi’ 
FtYSTPjaJ 
toSfPjA* 
kC»StP3AS 
EUSTP3A»> 
k(jStPJ«7 
k OSTPjAh 

eOSTP3Ay 
koSTP3St 
f uStPJSi 
toSTPjS*’ 
F0STPJS3 
koSTPJS* 
EI.SIP3SS 
E(YSTP3Sb 
kUStPjS7 
kuStPJSh 
KitSTPjby 
I OStKJbi. 
EoStPibl 
FIrfSTPJb? 
FOSTPJbj 
kUStP3b« 
FOSTPibS 
EwSIPjbb 
FOSTPjfct 
k(^S1P3bb 
EUSTP3bV 
t(ySTPj7t 
F6STPJ71 
kOSTPJ?.! 
E0StP373 
F(.STPa7* 
kUSTP3/S 
FOStP37b 
EIFSTP377 


60  TO  bS"  10  COMPOtF  hLitLiPv.tw  Fn«  Gli/kN  I 

00  To  bSO 


klvStP37b 

kl^STPjTy 

tUSTP3H(> 
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SUBROUTINE  EQSTPF  (Continued) 


• 17  IF  (AHSIE-EU  .LE.  «CC*AMAaJ  «EL0(M)  ) ) I.u  TO  HlV 

• 12  ■ ( l-TU/ eEl-FTU 
•23  a nu.T)/ (ETU.EU 
•2  a Sl^*S2J-<TO-TU/(ETu-tTl ) 

TLA^T  a1 

IF  (EL  .LT.  E)  60  Tu  8lh 
T a T«(b2«(Sl7.S?l*(E.EL)/(ETL>EU)a<t.CL) 

CTUaFl  k TUaTi  AST  % GO  TO  816 

• It  T a T«(b2*(S23>S2)*(E-EU/(ETU-Ema«E>EL) 

CTLaFL  » TLbTlAST  S 60  TO  Hl6 
•19  VLBayC(H)/8L 
FLBaPC(n)aPV 
00  TO  825 

C SOLVE  FOB  PL8  AdUVE  CBITICAL  BOIM  ON  V a vc  LINE 

•20  VLB  a Vl(H) 

RV  a 1, 


E0STO381 
FUSTP382 
E0STP383 
EUSTP384 
Ei<5TP3hS 
E0STP386 
EOSTP387 
f (^STP3B8 
EOSTPJHV 
EwSTHJVo 
EOSTPJVI 
EOSTP3V2 
EOSTP393 
EOSTPJV* 
E0STP39b 
EUSTP3V6 


*1  ■ E-tO(P) *rPSI EOSTP397 
•2  a CPbl  (M)*(282(M)aBv-2,a4(F|  (Hn#PV  EUSTP398 
Ta  m*SOHT(iiaxi-4.*EPS2(M)*X2))/(2.«tPS?(H)  ) E0STP399 
P6  a RVaT/(2C(M)*(l.«(e(Mi>HP(M)*BV)*NV> ).(/A0(m)*Zk1 (H)/T*2K2(M|aE0STPa0U 
1 (T-1,/T)PRVI*RV*MV«PV0(M)  EfaSTPaOl 


PLB  a PC(M)«Fn 
•25  RM  a 1,/VlM 
RB  ■ 1./VL8 
Z1  ■ (PLM.PLB)/(RM«HH) 

22  ■ lRtiPPLM«PM*PLB)  / (RH-HH) 

RI  ■ Zl/V-22 

23  ■ ALU6(PLH/PLa)/*L06(HM/HB) 

26  a (ALOO(HB)aAL06(P|  M)-AL06(RM>aALOb<PL8) >/AL06(RH/RB) 
ALP2  a A3aAL06( 1*/V)«a6 

r a <PLM/(RM-1./VlO(M) j-23aPLN/RMj/JZl«Z3«KLN/HM) 

F a AMlNl (l.tAMAXl (U««FI  I 
P a eXP(FaAL0n(Pl)*(l,-F)«ALP2) 

•0  TO  luOO 

•27  PRINT  1110tr«rMlNfTMAXiTU<TLtE«ET»ETL*ETU 
STOP  827 
C 

C •••  LlOUIO-VAPOR  MIXED  PHASE 

••0  RU  ■ l.«Cl (M)a(l..T)*a(l./3»)*0l(M)a(l»«T) 

EL  a EV-EPSl(M)aPV*(l,/RV.)./RL)*IA2(M)/T*Al(P).l.) 

C construct  upper  6N0  LONER  BOUNDS  ON  Et  T 

C BEGIN  iteration  LOOP  FOR  E WITH  T AS  A PARAMETER 

ETU  a EV 
00  TO  OGO 

C ENTER  from  375  FOR  V LESS  THAN  VC 

BBS  ETU  a EL 

BOO  ETC  a I V-VLO  (M)|  / (WO  (M)  •VLO  (Ml)  • (EVO(M)  >ELU  (M)  > *ELO  (M) 
FNAXa (E-ELO(M) | / (EVO (M) -ELO (R) ) 

IF(V  ,OT.  FMAx«VVO(M)*(l.«FMAX>*VLO(Mn  GO  TO  990 
TU  a T S TL  • TM(M) 

TLASTaO.S*(TU«TU 

C LINEAR  interpolation  TO  ESTIMATE  T 

NCOao 
NPARTa3 

T a TL*(E-ETL)W(TU-TL>/(ETU-ETU 
BTO  NC0«NC0*1 

IFINCO  .GT.  20>  60  TO  892 
IF  CT  .GT,  TU)  Tao.lPTLAST*0.8999#TU 
1F(T  ,LT.  TU  Ta0.1*TLAST0t8999aTL 
C 00  TO  650  TO  COMPUTE  RLt  ELt  RV,  EV  FOR  GIVEN  T 

00  TO  6B0 


EUSTP6U2 

EUSTPaOJ 

EOSTPAOa 

eostpaos 

E0STP6U6 

EOSTP607 

EOSTPaOb 

EUSTPA09 

EOSTPAlu 

EOSTPaU 

eostpau 

EOSTPAU 

EOSTPaU 

E0STPA15 

E05TP616 

E0STP6I7 

EUSTPaIB 

EUSTP619 

E0STP62(; 

E0STP621 

E0STP622 

E0STPA23 

E0STP62A 

E0STPA25 

E0STP626 

E0STPA27 

E0STPA28 

E0STP629 

E0STP63U 

EQSTP631 

E0STP632 

E0STP633 

E0STP636 

E0STP635 

E0STP636 

EUSTP637 

E0STP630 

E0STP639 

FOSTP660 

EUSTP661 
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SUBROUTINE  EQSTPF  (Concluded) 


•T5  tl  ■ (Ht*V-l.)/(ML/KV-l,)*(tV-EL)*tL 

IF  («BS<t-Ft>  ,LE.  *CC*A»iAXl(AbS(El«ELO(M))) 
UASTaT 

,QT.l.)  Sl?a<T-TU/<ET-ElU 
IF  ,6T.  l.)S23a(Tu-r>/(ETU-ET) 

S2aS|?*b?:)>(TO-TL)/(ETU-ElL> 

IF(ET  .Ll,  E)  60  TO  «HC 
T»T*(S2*<S12-S2)*(E-FT»/«ETL-Ein»IE-fcT» 
EIU-ET  % TUaTl.AST  « GO  TO  870 
T«T*(S2*<S23-S2)»(E-rT)/(ETy-ETM«IE-ET» 
EIL-ET  k TL«TL*Sr  » GO  TO  870 
f»  m PC  (n)«  <BV.PV0(M)  ) 

GU  TO  loon 

PhINT  llCOtrfTMlNfThAXtTUtTLfEiEftETLtETu 
STOP 


Go  TO  890 


aeu 

890 

892 

C 
C 
900 


•••  VAPOR  phase 

PV  ■ VC(Pt/tf 

XI  • E-tO(P) ♦FPSl (P)«280(H)*Bv 
X2  ■ FPbl  CiM*(2A2(M)«WV-2.«AM  <M»J*P9 
1 ■ <Xl*S9Hr<Xl*Xl-4,*EPS2(H)«X2H/j2.»EPS2(M)) 

P ■ PC (H)*('4V*T/(7C(P/«(l.«(B(M).bP(Mt*HV)*HV> )>(2KO(M)«2Rl (M)/T* 


98S 
C 
C 
990 
1000 
1100 
llUl 
1102 
1103 
IlOA 

1105 

1106 

1107 

1108 

1109 

1110 


2K?(H)«(T. 
GO  To  luOO 
CUNTlNUt 


1 ,/T)«HVI*RV«PV-PWO(H» ) 


• •• 


CUTOFF  AT  ItHO  PHESSUHE 


FURMATUH.** 

FORMA 

13/4,C;>).J///) 

FURMAT(1H.«* 

1//) 

FORMAT  UH..»« 
format (IH.t* 
lETU  •.Stin.3/AEI0.3///) 
FbRMATClH.t*  LOCa670  IM 
1 ■ •t5E10,3/5Fin.3///» 
FORMAT(1M-i«  L0C«827  IN 
lETU  •t9tln.3/AE10.3///I 
END 


E0STPAA2 

E0STPAA3 

EOSTPAAA 

E0STP4A9 

E0STPAA6 

EOSTPAA7 

EUSTPAA8 

E0STPAA9 

EQSTPASb 

E0STPA91 

E0STPA52 

E0STP453 

EbSTP4S4 

E0STP455 

E0STP4S4 

E0STP457 

E0STP458 

E0STP459 

EUSTP460 

FQSTP461 

E0STP462 

EUSTP463 

E0STP464 

EUSTP469 

EQSTP466 

E0STP467 

E0STP46B 

E0STP469 

EUSTP470 

E0STP471 

E0STP472 

EOSTP473 

E0STP474 

E0STP478 


P ■ 0. 

return 

FORMAT (bA| 01 
FORMAT(m1o«7E10.3) 

FORMATUH*!  79XfSH  lNOaA?«SH(  INal2«*  READ  IN  EOSTPF*) 
format  UH-t*  L0C«42  IN  E0STPF*i5X**  EMUOtPiPPtEMUiMa  PiSElOO///) 

C0C*82  IN  EOSTPF«,SXt*  RVl «PO»POP»RV»Ma*«SElO*3///) 

L0Ca312  IN  EOSTPFatSX**  TA«P6*PVP»P6P|TtPV»Ma  aOElOtEOSTPATB 

EOSTP477 

LOCa620  IN  EUSTPF  atSX**  TtEZ«M»FMUlA*EMUl0a«t9ElO.3/EOSTP47B 

C0STP479 

I.OCa  780  IN  EUSTPF  ••SX**  TF*TF0|T|M  ■•i4E10.3///>  E0STP480 
L0C>892  in  EQSTPF«tSx«*  TtTMINtTMAXiTUiTtfEiETiETli  E0STP481 

E0STP4B2 

E0STPF««SX**  HVfRVl»PViP0»P0PiEVtRLiELfT»MEBSTP4B3 

E0STP4B4 

EUSTPF*i5Xt*  1«TMlNtTMAX,TUfTLtEiET»ETL,  E0STP4B5 

E0STP4B6 
EOSTP487 
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APPENDIX  D 


EXTENDED  TWO-PHASE  EQUATION  OF  STATE :ESA 

The  subroutine  incorporating  the  extended  equation  of  state  is  listed 
in  this  appendix  together  with  a description  of  the  CALL  statement  and  the 
nomenclature. 

The  subroutine,  termed  ESA,  is  called  at  two  points  in  a wave  propagation 

code.  The  first  CALL  is  made  from  the  initialization  routine  (GENRAT  in  SRI 

PUFF)  while  material  properties  are  read  in.  All  subsequent  CALLS  are  made 

froiii  the  routine  that  controls  stress  calculations  during  wave  propagation 

(HSTRESS  in  SRI  PUFF)  . In  preparation  for  the  Initializing  CALL,  the  solid 

density  (o  ) and  the  Hugonlot  parameters  (C,  D,  S,  [)  must  be  available 
so 

in  COMMON.  Additional  material  data  are  read  in  directly  by  the  subroutine 
ESA  during  the  Initializing  CALL:  they  are  unavailable  to  the  rest  of  the 
program.  All  other  input  and  output  variables  are  inserted  through  the 
CALL  statement.  The  initializing  CALL  is 
CALL  ESA  (NCALL,  IN,  M) 

where  NCALL  indicates  the  type  of  CALL:  a zero  value  is  for 
Initializing,  one  is  for  computing  pressure 

IN  is  the  file  containing  data 

M is  the  material  number 

During  this  CALL  the  subroutine  ESA  reads  two  data  cards  and  initializes 
its  array  variables.  These  cards  each  contain  an  identifier  in  the  first 
10  columns  (in  AlO  format)  and  6 constants  in  E10.3  format.  A sample  set 
for  titanium  follows: 

ESA  TI  1 -5.000E-01  0.  0.  0.  3 . 970E  00  1.490E  10 

ESA  Tl  2 5.914E  09  9.560E-01  1.182E  11  0.  5.300E-10  1.026E  11 

The  first  three  constants  are  the  parameters  I’  , F , and  F , which  api  ' - 

in  Eq.  (93),  the  expression  used  for  compressed  states.  The  othe»*  . 'o 

values  are  the  pressures,  densities,  and  energies  associated  with  thi^v- 

points  on  the  expansion  equition-of-state  surface:  P ,p  , E ; P , o , E ; 

11  12  2 2 
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Preceding  page  blank 


and  P , p„,  E„.  These  nine  values  are  used  to  construct  the  coefficients 

3 3 3 

g > E I h > b ...  b , which  describe  the  expansion  surface, 
o 1 o 1 o 3 

The  second  and  all  subsequent  CALLs  are  made  during  the  wave 
propagation  calculations  to  obtain  the  pressure.  The  form  of  this 
CALL  is 

CALL  ESA  (NCALL,  5,  M,  C(J),  D(J) , E(J),  P(J) , DPDD(J),  DPDE(J)) 
where  D and  E are  the  density  and  energy  provided  to  the  routine 
P is  the  pressure  computed  in  ESA 
C is  sound  speed  from  ESA 
DPDD  = aP/dP  from  ESA 
DPDE  = 3P/^E  from  ESA. 

The  subroutine  ESA  is  constructed  in  two  parts:  one  for  Initializing, 
the  other  for  c./mputlng  pressure.  The  pr  ssure  computations  are  further 
subdivided  into  portions  for  compressed  and  expanded  states. 

A nomenclature  list  is  provided  for  the  subroutine.  Following  this 
is  a listing  of  tJie  subroutine. 
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NOMENCLATURE  OF  INPUT  AND  PRINCIPAL  VARIABLES  IN  ESA 


‘’l’  ‘’2’ 

Coefficients  of  the  density  expansion 

EQSTC,  EQSTD,  EQSTS 

Coefficients  in  the  Hugoniot  expansion, 

9 

dyne/cm 

EQSTG,  (r) 

Grlineisen  ratio 

El,  E2,  E3, 

Internal  energies  at  data  points  on  the 

(E  , E , E ) 
1’  2’  3 

expansion  E-P-V  surface,  erg/g 

FI,  F2,  (F^,  F^) 

Coefficients  of  the  nonlinear  energy 

2 

term  for  compressed  states,  g /dyne/cm 

F3 

- ■'s’-Oso 

F4 

"'2  - 

Gl,  (Fj) 

Second  term  in  the  expansion  for 
GrUneisen  ratio 

G2 

'■-‘1 

G3 

r,/o 

1 so 

PI,  P2,  P3, 

Pressures  at  data  points  on  the  ^ 

"'l'  ’’2'  ‘’3> 

expansion  E-P-V  surface,  dyne/cm 

RHOS , (0  ) 

so 

initial  solid  density 

Rl,  R2,  R3, 

Densities  at  data  points  on  the 

Po.  Po) 

expansion  E-P-V  surface,  g/cm^ 
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ooo  r»  o ooooori  oooooon 


SUBROUTINE  ESA 


SUHKnuU^F  tSA  (NCALLtlN«HiCfP«^  ) 

COf-HUTES  PHtSSUKE  kkOh  SImPlE  T»0-PH<*SE  EUUAUON  OF  STATF 
ESA  HAS  TWO  PAHTSt  COhHESPONtJlN&  TO  PEAOINO  AND  COMPOTlNb 


HEAU  INPUT  (NCALLi 
INPUT  . NCaLLi 
OOTPUl  - HMINTS 


(1).  CALL  IS  FHOM  GENPAT. 

INi  Mt  HAIEHIAL  PHOPEHTy  LAHDS 

CAHO  IHAbhSt  OkGANUES  DAIa  INTO  AkHAYS 


COMPOTE  PPESSUHE  (NtALL«l) 
INPUT  - NCALLiN«C«UtF 
OOTPUl  . C«P«OPOE 


CALL  IS  FPOm  hSThESS  usually. 


NAMED  COMMON 
HEAL  MO f MOM 

COMMON  /EOS/  EUSTA(A),L()srC(M*EuSTD(6>tKUSTE  (A).EOSTG(b)t 
I EUSTHI6) «EUSTNI6) •EUSTS(b) tEOSTW  (A) «C/U(b) •CwU(b) tC? (b) 
CUMHON  /MplT/  EMELT(AiS)  •SPM(ti) 
common  /KhO/  OhO (A) (HHOS (b) 

COMMON  /T«H/  TSH(A*30» iEAmAT <b.2P) «T£NS<b,3) 

COMMON  /Y/  YO  (6)  «YAU0(6)  tHLiTA)  «MUM*yAUOM 

DlMEN«i(ON  H(4,b)«Fllb)«F?(6)*F3(6)tFA(6>ibllb)t02(6)tb3(b) 
DATA  IUu/1h  / 


IF  (NCAlL  .EU.  1 ) Go  TO  200 

»•••• 

PbAO  INMliT  data  ANU  INITIALI/E  AHHAYS 


A1«G1(P) «F 1 (M) tF2(M)*Pl«Hl»El 
A1,G1(M).FI (M»#F2<M).Pl,Hl,El 

lUOtlN 

A1,P2«P2.E2«P3*H3,e3 
A1 ,P2«H2«E2iP3tH3*E3 
lOPiIN 

CUFFFICIENTS  IN  EXPANSION  EUUATION 


HEAD  liNtIlOO) 

MHITF  IbfllOO) 
mHITF  (b«I121) 

HEAD  (iNfIluO) 

WHITF  (bfIlOO) 
white  Ib»ll21) 

InIIIaLUE 

HOsHhOS(M) 

E3(M)»(c,*H )/HO 
F*(M|»(F2|M)-pi (M) I /HO/HO 
G2(M)aEuSTG<M).Gl (Ml 

INIIIaLIZE  •&>  APHAY 
AOaEOSTLIM)/Rn 

AlaPl-HI*Fl*(G2(M) «HI*63 (M) ) •Hl«EI*Fl* (F 3 (H)  ♦kIwp%(H) ) 
A2»P2-Ht*E2«TG2(M) *HZ*G3 (M) ) -H2*£2»EZ» CF 3 |M) ♦H2*FA (M) ) 
A3«P3-H3*F3« (G2 (M) ♦h3«G3  <M) ) -H3*E3*E3* (F3 (M)  ♦H3»FA (M) ) 
HEDEFINt  A 10  INCLUDE  DENOMlNATOHS 
RUaKHOS(H) 


G3(M)»61 (MI/HO 


OOlaRO'H)  f U02*H0«H2 

013AR1-H3  S D?3>H2-H3 

A0aA0/(OUT*O0?*003) 
A2a-A?/ (0O2*0O2»0l2«D23) 


003«R0-H3 


U12»H1-H2 


S Al>  AI/(001*U01*U12*013) 

S A3a  A3/(D03*UU3*bl3*U23) 

B 1 1 iM) ■.AQ*Hl«H2*R3-H0*Al«H2*R3-H0*Rl*A2*R3-Hr*Hl*H2*A3 
BI2«M)aHO*Hl*(A2«A3)*RO*R2*(Al*A3)«HO*R3*IAl*A2> 

1 ♦R1«h2*(AO*A3)«R1*R3*(AU*A2)*R2«R3*(A0«A1) 

B(3tM)a.R0*(Al«A2*A3).RlW(AU*A2*A3).R2*(A0AAl»A3).R3*(A0*Al«A2) 
B(4*M)bA0*A1*A2*A3 
return 


ESA 

2 

FSA 

3 

.ESA 

4 

ESA 

s 

ESA 

b 

ESA 

7 

ESA 

b 

ESA 

V 

ESA 

10 

ESA 

11 

ESA 

12 

ESA 

13 

ESA 

14 

EUSTCUH2 

EUSTCUM3 

EUSTCUH* 

EUSTCOMb 

EUSTCUMb 

EUSTCUmT 

EQSTCUmh 

EUSTCUMV 

ESA 

Ib 

ESA 

17 

ESA 

IH 

ESA 

IH 

ESA 

20 

ESA 

21 

ESA 

22 

ESA 

23 

ESA 

24 

ESA 

2S 

ESA 

2b 

ESA 

27 

FSA 

2b 

ESA 

2V 

ESA 

3U 

ESA 

31 

ESA 

32 

ESA 

33 

ESA 

34 

ESA 

3b 

ESA 

36 

ESA 

37 

ESA 

3B 

ESA 

39 

ESA 

40 

ESA 

41 

ESA 

*2 

ESA 

43 

ESA 

44 

ESA 

45 

ESA 

4b 

ESA 

47 

ESA 

4(t 

ESA 

49 

ESA 

So 

ESA 

51 
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SUBROUTINE  ESA  ^Concluded'/ 


c ** 

ESA 

S2 

c 

CALCULATION  OF  PRESSURE  AND  SOUND  SPEED 

ESA 

S3 

c •• 

ESA 

SA 

200 

IF  (0  *LT.  HHOSIM))  00  TO  300 

ESA 

55 

C 

(■SA 

56 

C 

•••  COMPRESSION  EQUATION  OF  STATE 

ESA 

57 

Ua(U-RHUS(M))/RHOS(M) 

ESA 

50 

PHaU* (EUSTC (M) *U* (EUSTO (M) *U*EQSTS IM) ) ) 

ESA 

59 

601aCQSl0(H)«U*61(M) 

ESA 

60 

OFal..0.S*U*66l 

ESA 

61 

FFaFl (M»*U*F2(H» 

ESA 

62 

P a PH»(,F  * (fiOl^D  * FF«E)*E 

ESA 

63 

DPOH  a(  (EQSTC  (Ml  *U*  (2.*E0STD  (M)  «U*3. HOSTS (M) ) ) HF 

ESA 

6A 

1 .PH«((«*!tH0$T0(M)*U*61(M) ) *(61(M)»D  * F2(M)H)*E)/NH0S(M) 

ESA 

65 

2 ♦001 H 

ESA 

66 

DPOE  a |»61*U  * 2.«F>-H 

ESA 

67 

00  TO  3S0 

ESA 

68 

C 

ESA 

69 

C 

•••  fxpmnsion  eouation  of  state 

ESA 

70 

300 

G03an*<ii2(H)4n*G3(M)  ) 

ESA 

71 

FF  aO*»F3(M»*n*F4(Hn 

ESA 

72 

bTEMMSabd  «M|*0*(A(2«M) *0* (B < 3 iM) ♦0*M (4tM) ) ) 

ESA 

73 

P a <n-hHOS«M)  )«aTEKMS  ♦ (003  ♦ FFn»*E 

ESA 

74 

OPOH  a »6?(M)*2.ana(,3(M)  ♦ (F3(M)*  ?.«D»F ♦ (M) ) #E > *E 

ESA 

75 

1 '’BTFNmS  « (0«MH0S(M))*<h(2<M)4U*(2**b(3tH)»U*3.*H(4iM)>) 

ESA 

76 

OPOE  a oP3  ♦ ?.*FF*t 

ESA 

77 

3b0 

cso  a upOH  ♦ p*rjPnE/ii««2 

f SA 

76 

IF  (CSO  .fiT.  I.)  raSOKT(CS(j) 

ESA 

79 

hftupm 

ESA 

80 

1100 

FUNM4T  (A(iif7FU’.3) 

ESA 

61 

1121 

FUHMXr  llM*»7QXtSH  lN0aA2«bMi  lNaI2,a  -tSX-*> 

ESA 

82 

END  FS*. 

ESA 

6J 
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